Расшифровать ребус

var
  d, o, m, a, r, i, n: Byte;
  max, maxX: Integer;
 
begin
  max := -Maxint;
  for d := 1 to 9 do
    for o := 0 to 9 do
      for m := 0 to 9 do
        for a := 0 to 9 do
          for r := 1 to 9 do
            for i := 0 to 9 do
              for n := 0 to 9 do
                if (d <> o) and (d <> m) and (d <> a) and (d <> r) and (d <> i) and (d <> n) and
                   (o <> m) and (o <> a) and (o <> r) and (o <> i) and (o <> n) and
                   (m <> a) and (m <> r) and (m <> i) and (m <> n) and
                   (a <> r) and (a <> i) and (a <> n) and
                   (r <> i) and (r <> n) and
                   (i <> n) and
                   (((d * 1000) + (o * 100) + (m * 10) + a) * 4 = (r * 10000) + (a * 1000) + (i * 100) + (o * 10) + n) Then
                begin
                  if r + a + i + o + n > max Then
                  begin
                    max := r + a + i + o + n;
                    maxX := ((d * 1000) + (o * 100) + (m * 10) + a);
                  end;
                  Writeln(d, o, m, a, '+', d, o, m, a, '+', d, o, m, a, '+', d, o, m, a, '=', r, a, i, o, n);
                end;
  Writeln('MAX= ', max, ' при ', maxX div 1000, maxX div 100 mod 10, maxX div 10 mod 10, maxX mod 10);
end.