с клаваиатуры вводится диаметр окружности, напишите программу, выводящую площадь круга

:

var d, s: integer;

begin

read(d) ;

s:=2*3,14*(sqr(d/2));

writeln('Площадь круга равна ', s)

end.