Среди всех двузначных чисел найдите те у которых произведение цифр равно самому числу

Var i:integer;
begin
  for i:=10 to 99 do
    if (i mod 10)*(i div 10)=i then writeln(i);
end.
---
Но насколько мне известно, среди двузначных чисел таковых не имеется.