KOT+KTO=TOK. Опции

[millenium]

Условие: KOT+KTO=TOK
Каждая буква отвечает за какую-нибудь цифру.
3 цикла.
for i:=0 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
ПЛИЗЗЗЗЗЗЗ!!!!!!!!!

[Ivs]

Код

program _Rebus;

var
  i,j,k       : Integer;
  kot,kto,tok : Integer;

begin
  for i:=0 to 9 do
     for j:=0 to 9 do
      for k:=0 to 9 do
      begin
         if (j<>i) and (k<>j) and (k<>i) then
         begin
            kot:=i*100+j*10+k;
            kto:=i*100+k*10+j;
            tok:=k*100+j*10+i;
            if kot+kto=tok then
            begin
             writeln('KOT + KTO = TOK');
             writeln(KOT,' + ',KTO,' = ',TOK);
            end;
         end;
      end;
  readln;
end.