Program test3;
Var R : real; // радиус
S : real; // площадь круга
L : real; // длина окружности
Begin
Readln (S);
R:= sqrt(S / pi);
L:= 2*pi*R;
Writeln ('ответ: ',L );
End.
Объяснение:
Program test3;
Var R: real; // радиус
S : real; // площадь круга
L : real; // дляна окружности
Begin
Readln (S);
R:=sqrt(S / pi)
L:=2*pi*R;
Wrinteln ('ответ: ',L);
End