Дана площадь S круга. Найти его диаметр D и длину L окружности, ограничивающей этот круг, учитывая, что L = π·D, S = π·D2/4. В качестве значения π использовать 3.14 — Pascal(Паскаль)

program plokruj;
const pi = 3.14;
var L, S, D: real;
begin
    write('Введите площадь окружности: ');
    read(S); D := sqrt(4 * S / pi); L := D * pi;
    writeln('Длина круга -- ', L:5:2);
    writeln('Диаметр круга -- ', D:5:2);
end.