найти произведение всех натуральных чисел от 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.