var
d,r,s :real;
begin
write('Ведите значение диаметра и нажмите ввод');
readln(d);
r:=d/2;
s:= Sqr(r)*Pi;
write('Площадь круга с D= '+d+' роровна S= '+s+' ед^2');
end.
