Найти произведение всех натуральных чисел от 1 до 100 на языке pascal

На турбо паскале невозможно сделать этого, т. к. идет переполнение возможного лимита данных (real, longint). В идеале это должно выглядеть так:

var

a:real;

i:byte;

begin

a:=1;

for i:=1 to 100 do begin

a:=a*i;

end;

writeln (a);

end.