срочно программу в паскаль. решить числовой ребус однообразные буковкы означают

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 for var K := 1 to 9 do

   for var O := 0 to 9 do

     for var T := 1 to 9 do

       if 100 * K + 10 * O + T + 100 * K + 10 * T + O =

           100 * T + 10 * O + K then

         'KOT+KTO=TOK'.Println

end.

459+495=954