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

Я решала с помощью программирования.Составила программу   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