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