Запишите ** паскале следующее арифметическое выражение: A= пr2

Question

Запишите на паскале следующее арифметическое выражение: A= пr2

Answer 1

Var
A,r,pi:real;
begin
readln(r);
pi:=22/7;
A:=pi*sqr(r);
writeln (A);
end.