Ребус Написать программу для решения арифметического ребуса Я + ОН + ОН + ОН + ОН + ОН +...

Во первых, прежде чем мы напишем программу, обратим внимание на тот факт, что БУКВА О равна 1, что существенно уменьшит количество переборов в цикле. Запишем это выражение в виде:
A+8*(10+N)=(10*M+Y)
У нас получилось 4 вложенных цикла:

uses Crt;
var A, N, M, Y: integer;

begin
ClrScr;
for A:=0 to 9 do
    for N:=0 to 9 do
      if (A<>N) then
        for M:=1 to 9 do
          if (A<>M) and (N<>M) then
            for Y :=0 to 9 do
              if (A<>Y) and (N<>Y) and (M<>Y) then
                 if (A+8*(10+N)=10*M+Y) then
                   begin
                     Write('Я=', A,' ');
                     Write('O=', 1,' ');
                     Write('Н=', N,' ');
                     Write('M=', M,' ');
                     Write('Ы=', Y,' ');
                     WriteLn;
                   end;
ReadLn;
end.

И всего 8 различных ответов!!!