Циклические алгоритмы, Помогите с задачей ПЛИЗ Опции

[BAEVIK]

Найти все двузначные числа, сумма цифр которых не меняется при умножении числа на 2,3,4,5,6,7,8,9.

[Lapp]

Найти все двузначные числа, сумма цифр которых не меняется при умножении числа на 2,3,4,5,6,7,8,9.

Я так думаю, что нужны все же не все множители сразу, а какой-то один из них. Тогда можно делать как-то так:

for k:=2 to 9 do for i:=1 to 9 do for j:=0 to 9 do begin
  a:=10*i+j;
  a0:=a mod 10;
  a:=a div 10;
  a1:=a mod 10;
  a2:=a div 10;
  if i+j=a0+a1+a2 then WriteLn(i,j)
end;

Надеюсь, не ошибся..))