Question

Создайте программу для решения задачи :найти площадь круга заданного радиуса
S=Пr^2

Answer 1

Var r,s:real;
Begin
Writeln('введите радиус');
Readln(r);
s:=r*r*pi;
Writeln('S=',s);
End.