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