Найти произведение всех двух значных чисел

Вот программа:
var i:integer; p:real;
begin
p:=1;
for i:=10 to 99 do p:=p*i;
writeln('p=',p);
end.
Произведение будет очень-очень большое:
p=2.57182031095525E+150