Пожалуйста посчитайте с информатикой!вычислить N!=1*2*3*...*N с помощью паскаля

begin
  var n:=ReadInteger('n=');
  Writeln(n,'! = ',2.To(n).Aggregate(BigInteger(1),(i,j)->i*j))
end.


n= 20
20! = 2432902008176640000

n= 43
43! = 60415263063373835637355132068513997507264512000000000




var
  i,n:longint;
  P:int64;

begin
  Write('n= '); Read(n);
  if n>20 then
    Writeln('Слишком большое n, допустимо 1,2, ... 20')
  else begin
    P:=1;
    for i:=2 to n do P:=P*i;
    Writeln(n,'! = ',P);
    end
end.


n= 20
20! = 2432902008176640000

n= 43
Слишком большое n, допустимо 1,2, ... 20

Если не делать проверки n, было бы
n= 43
43! = -7904866829883932672