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

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