Наберите программу площади круга

Question

Наберите программу площади круга

Comments

VarR:real;BeginWriteLn('Введи радиус круга');ReadLn(R);WriteLn('Площадь круга равна ',Pi*R*R);End.

Answer 1

Const p=3.14;
var r,s:real;
begin read(r); 
writeln('Площадь круга= ',p*sqr(r)); 
end.