var
a : integer;
begin
readln (a);
if a > 0 then
a := a +1;
if a <0 then
a := a-2
if a= 0 then
a := 10;
writeln (a);
end.
Формула вычисления длины окружности , откуда радиус окружности . Подставляем радиус в формулу площади и получаем
var S, L: real;
begin
read(L);
write(L * L / (4 * PI))
end.