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

извините, меня...но вы бы не могли помочь с этой задачей?: Найти все произведения двух значных чисел оканчивающихся только на 1

var i:integer; p:real;beginp:=1;for i:=10 to 99 do if i mod 10 =1 then p:=p*i;writeln('p=',p);end.

разве это не та же самая программа?

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