Объяснение:
Var
L:real; // длинна окружности
Readln(S);
R:= sqrt (S/pi);
L: = 2 R pi;
Writeln('ответ', L );
