ПОМОГИТЕ ПОЖАЛУЙСТА решить через паскаль

Введите трехзначные числа, у которых вторая цифра равна произведения первой и последней цифре.

Ответ:

Задание: Выведите трехзначные числа, у которых вторая цифра равна произведению первой и последней цифре.

Объяснение:

var

 i : integer;

begin

 i:=999;

 while i > 99 do begin

   if (i mod 10) * (i div 100) = (i-((i div 100)*100 + (i mod 10)))/10 then

     writeln(i);

   dec(i);

 end;

end.