Формула вычисления длины окружности , откуда радиус окружности . Подставляем радиус в формулу площади и получаем
var S, L: real;
begin
read(L);
write(L * L / (4 * PI))
end.
, откуда радиус окружности 
. Подставляем радиус в формулу площади 
и получаем 
