Задача:вычислить n факториал в паскале ​

Факториал числа n обозначается как n! и вычисляется по формуле:

n! = 1 · 2 · 3 · ... · n

При этом 0! = 1.

Программа на Pascal с использованием цикла:

pascal
program Factorial;
var
  n, i: Integer;
  factorial: Int64;
begin
  Write('Введите n: ');
  ReadLn(n);
  if n < 0 then
    WriteLn('Факториал отрицательного числа не определён')
  else
  begin
    factorial := 1;
    for i := 2 to n do
      factorial := factorial * i;
    WriteLn(n, '! = ', factorial);
  end;
end.

Например, если пользователь введёт число 5, программа выполнит вычисление:

5! = 1 · 2 · 3 · 4 · 5 = 120

Результат работы программы:

Введите n: 5
5! = 120

Переменная factorial имеет тип Int64, поэтому программа может правильно вычислять факториал только до 20!. Начиная с 21!, результат становится слишком большим для типа Int64.