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

Program Begin14;

Var
  L, R, S: Real;

Begin
  ReadLn(L);
  R := L / (2 * pi);
  S := pi * Sqr(R);
  WriteLn('R = ', R:6:3);
  WriteLn('S = ', S:6:3);
  ReadLn;

End.