Дана площадь круга. Найти длину окружности, ограничивающей этот круг. В качестве значения Pi использовать 3,14. Напишите, пожалуйста программу для паскаля abc.

var

 square:double;

 length : double;

begin

writeln('Введите площадь круга: ');

readln(square);

length:=2*Pi*sqrt(square/Pi);

writeln('Длина окружности =  , 'length);

end.