Составить алгоритм и написать программу вычисления площади геометрической фигуры с использованием условного оператора if по одной из формул: S=п*r; S=a*b

var

s, r, a, b:real;

k:byte;

begin

repeat

write ('1 - S kruga; 2 - S pryamougolnika: ') ; readln (k) ;

until (k=1) or (k=2) ;

if k=1 then begin

write ('Radius: ') ; readln (r) ;

s:=pi*r;

writeln ('S = ', s:0:5) ;

end else begin

write ('A = ') ; readln (a) ;

write ('B = ') ; readln (b) ;

s:=a*b;

writeln ('S = ', s:0:4) ;

end;

readln;

end.