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

Program Begin15;

Var
  S, L, R, D: Real;

Begin
  { После тупых преобразований S = pi*R^2 -> R = sqrt(S/pi), D = 2*R }
  ReadLn(S);
  R := Sqrt(S / pi);
  D := 2 * R;
  L := 2 * pi * R;
  WriteLn('D = ', D:6:3);
  WriteLn('L = ', L:6:3);
  ReadLn;

End.