Решите ребус: кот-к=кто найдите все решения

Я решала с программирования.Составила программу

Program pic;Var k,o,t:integer;beginFor k:=1 to 9 dofor t:=1 to 9 dofor o:=1 to 9 doif (100*k+10*o+t)-k=100*k+10*t+o then writeln(100*k+10*o+t,'-',k,'=',100*k+10*t+o);readln;end.

Получились ответы:

921-9=912

932-9=923

943-9=934

954-9=945

965-9=956

976-9=967

987-9=978