Написать программу , которая подсчитывает произведение натуральных чисел от 1 до n . Пожалуйста посчитайте!!!!!!!!

Var
  i, n: integer;
  P: real;
Begin
  Write('n = ');
  ReadLn(n);
  P := 1;
  For i := 1 to N do
    P := P * i;
  WriteLn('P = ',P);
End.