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

PASCAL

Во первых, до этого чем мы напишем программку, обратим внимание на тот факт, что БУКВА О  одинакова 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 (Alt;gt;N) then
        for M:=1 to 9 do
          if (Alt;gt;M) and (Nlt;gt;M) then
            for Y :=0 to 9 do
              if (Alt;gt;Y) and (Nlt;gt;Y) and (Mlt;gt;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 разных ответов!!!