Известна длина окружности. Найти площадь круга, ограниченного этой окружностью. PASCAL

Question

Известна длина окружности. Найти площадь круга, ограниченного этой окружностью. PASCAL

Answer 1

Var
    P: real;

begin
    readln(P);
    writeln(P*P/4/Pi);
end.