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

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(range(1,ReadInteger('n=')).Aggregate(Real(1),(x,y)->x*y));
end.

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.