Begin15. Дана площадь S круга. Найти его диаметр D и длину L окружности, ограничивающей этот круг, учитывая, что L=2·pi·R, S=pi·R².
var s, d, l, r: real;
begin
  write('Введите площадь круга ->');
  readln(s);
  r:=sqrt(s/pi);
  d:=r*2;
  l:=2*pi*r;
  writeln('Диаметр окружности = ', d:6:2);
  writeln('Длина окружности = ', l:6:2);
end.