Program Program1;Vars,c:real;beginwrite('Введите площадь окружности: ');Readln(s);c:=2*SQRT(PI*s);writeln('Длина окружности равна ', c);end.
Program Program1;
Var
s,c:real;
begin
write('Введите площадь окружности: ');
Readln(s);
c:=2*SQRT(PI*s);
writeln('Длина окружности равна ', c);
end.