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

program zz1;

var a, s1, n, i, s2, b, k, j:integer; / / задаем переменные целого типа

begin

for j: = 2 to 9 do

begin

writeln (' двузначные числа при умножении на ', j);

for i:=10 to 99 do

begin

s1:=0; s2:=0;

a:=i mod 10;

b:=i div 10;

s1: = a + b;

n:=i*j;

while n > 0 do / / организуем цикл, пока в числе есть цифры

begin

k:=n mod 10; / / получаем последнюю цифру

s2:=s2 + k; / / прибавляем ее к сумме

n:=n div 10; / / отбрасываем ее

end;

if s1 = s2 then write (' ', i); / / выводим ответ

end;

writeln;

end;

end.