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

Program abc;
var S,D,L,R,pi:real;
    begin
    pi:=3.14;
    writeln('Введите плошадь');
    read(S);
    R:=(sqrt(S/pi));
    D:=(2*R);
    L:=(2*pi*R);
    Write('Диаметр равен',D,' Длина равна',L);
end.