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