Question

Вычислить площадь круга Pascal ABC

Answer 1

var

r:real;

begin

read(r);

r:=3.14*r*r;

writeln('S=',r);

end.

Answer 2

program krug;

var

r,otvet:real;

begin

readln(r);

otvet:=3.14*sqr(r);

writeln('S=',otvet);

end.