Найдите число треть которого составляет 50%от26

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

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

3-2=1 ответ осталось 1 яблоко.