Сосавьте пожалуйста формулу PascalABC Площадь круга через диаметр
Відповідь:
Program Programing_The_Best;
var d, r, PI, S: real;
begin
PI := 3.1415926535;
read(d);
r := d / 2;
S := PI * r * r;
write(S);
end.