Напишите программку,которая вводит с клавиатуры натуральное число N и определяет его

Program fakt;
var
   n,i,z:integer;
begin
   readln(n);
   z:=1;
   for i:=2 to n do
      z:=z*i;
   writeln(z);
end.

Если программку написать так, то наибольший факториал, которой мы сможем вычислить - 12. Можно integer поменять на real, тогда чуток больше сможем вычислить. Так же можно вычислить через массив, тогда где-то 3000 мы сможем получить.

Если же ввести больше 12 в этой программке, то получится переполнение сменой, из-за чего число пойдёт "по кругу". Т.е. мы получим не 3 000 000 000, а -1 000 000 000, т.к. наибольшее число у integer - приблизительно 2 000 000 000