Решите ребус: КОТ-К=КТО Найдите все решения

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

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