Помогите решить задачу по паскалю, Вот задача: Известна длина окружности "с"...

Question

Помогите решить задачу по паскалю, Вот задача: Известна длина окружности "с" (с=2пR).Найти площать окружности "с"с данным радиусом. с=2пR R=с\2п S=пR во 2 степени.

Answer 1

var
c,r,s:real;
begin
write('dlina okruznosti=');
readln(c);

r:=c/(2*pi);
s:=pi*sqr(r);

writeln('ploshad=',s)
end.