Составить программу для вычисления по формуле S=ПR²

Question

Составить программу для вычисления по формуле
S=ПR²

Answer 1

Var r,S:real;
const pi:=3.141592;
begin
write('введите радиус круга');
read(r);
S:=pi*sqr(r);
write('Площадь круга =')
end.