Факториал. и не маленький

[madmaniac]

загорелся идеей посмотреть факториал числа 100
написал прогу..код изложу ниже..но когда хочю посчитать 100
получается ноль.. думаю причина в самой длинне ответа..158 цифр..
но какой тип перепробовал все от integer до string

код:

program faktorial;
uses crt;

var n,i,k : longint; 

begin
  writeln('Введите желаемое значение');
  readln(n);
 k:=1;
 for i:=1 to n do
      k:=k*i;
   
 writeln('Факториал числа ',n,'   равен  ', k);
 
 readkey
end.

был еще такой вариант , но опять чет не хочет (

program faktorial;
uses crt;

function Factorial(n: word): LongInt;
    var fact: longint;
begin
  fact := 1;
  if n=0 then exit;
  for n := 1 to n do
  fact := fact*n;
  Factorial := fact;
end;
var n,i,k : longint; 

begin
  writeln('Введите желаемое значение');
  readln(n);
 k:=1;
 for i:=1 to n do
      k:=k*i;
   
 writeln('Факториал числа ',n,'   равен  ', k);
 
 readkey
end.

подскажите хотябы в каком направлении думать

[alex_fcsm]

uses crt;

var k :Real;
    i,n:byte;

begin
writeln('Введите желаемое значение');
readln(n);
k:=1;
for i:=1 to n do
k:=k*i;

writeln('Факториал числа ',n,' равен ', k);

readkey
end.

Факториал 100 приблизительно 9.332E157

[madmaniac]

спасибо..буду пробовать
приблезительно тоже ответ..

uses crt;

var k :Real;
    i,n:byte;

begin
writeln('Введите желаемое значение');
readln(n);
k:=1;
for i:=1 to n do
k:=k*i;

writeln('Факториал числа ',n,' равен ', k);

readkey
end.

Пользуйтесь кнопкой Правка и не плодите сообщения. Обращайте на нарушения, которые у вас выявлены. При накоплении оных последует блокировка аккаунта!!!

[sergey.d]

93326215443944152681699238856266700 49071596826438162146859296389521759 99932299156089414639761565182862536 97920827223758251185210916864000000 000000000000000000