Очень Нужно составить программу : по заданному диаметру окружности найти площадь круга и длину окружности. На фото пример

program circle;

var s,l,d:real;

begin

write ('Введите значение диаметра ');

read (d);

s:=pi*d/2*d/2;

l:=2*pi*d/2;

writeln ('Площадь круга равна ',s:2:2,' Длина окружности равна ', l:2:2);

end.

Объяснение:

язык pascal abc