Найти длину окружности L и площадь круга S заданного радиуса R: L = 2*pi*R, S = pi*R^2 — Pascal(Паскаль)

Program Begin7;

Var
  L, S, R: Real;

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

End.