Расшифровать ребус (4 * Окно = Дома) - Free Pascal

Формулировка задачи:

Расшифровать ребус, полученный в результате замены одинаковых букв одинаковыми цифрами. Найти также такие значения цифр, при которых сумма цифр в результате окажется наибольшей.

ОКНО ОКНО ОКНО ОКНО ДОМА

Решение задачи: «Расшифровать ребус (4 * Окно = Дома)»

Листинг программы

var
  o, k, n, d, m, a: integer;
  max, maxd, maxo, maxm, maxa: integer;
  t: set of byte;
 
begin
  t := [];
  for o := 1 to 9 do
    if not (o in t) then
    begin
      Include(t, o);
      for k := 0 to 9 do
        if not (k in t) then
        begin
          Include(t, k);
          for n := 0 to 9 do
            if not (n in t) then
            begin
              Include(t, n);
              for d := 1 to 9 do 
                if not (d in t) then
                begin
                  Include(t, d);
                  for m := 0 to 9 do
                    if not (m in t) then
                    begin
                      Include(t, m);
                      for a := 0 to 9 do
                        if not (a in t) then
                        begin
                          Include(t, a);
                          if 4 * (o * 1000 + k * 100 + n * 10 + o) = d * 1000 + o * 100 + m * 10 + a then
                          begin
                            if d + o + m + a > max then
                            begin
                              max := d + o + m + a;
                              maxd := d; maxo := o;
                              maxm := m; maxa := a
                            end;
                            WriteLn('4 * ', o, k, n, o, ' = ', d, o, m, a)
                          end;
                          Exclude(t, a)
                        end;
                      Exclude(t, m)
                    end;
                  Exclude(t, d)
                end;
              Exclude(t, n)
            end;
          Exclude(t, k)
        end;
      Exclude(t, o);
    end;
  WriteLn('Значения цифр, при которых сумма цифр в результате наибольшая:');
  WriteLn('Д = ', maxd, '; О = ', maxo, '; М = ', maxm, '; А = ', maxa);
  ReadLn
end.

Объяснение кода листинга программы

В коде используется язык программирования Free Pascal.
Задача программы - расшифровать ребус 4 * Окно = Дома.
В начале кода создается пустое множество t, которое будет использоваться для проверки уникальности чисел.
Затем происходит итерация по числам от 1 до 9.
Для каждого числа o выполняется проверка, не содержится ли оно уже в множестве t.
Если число o не содержится в множестве t, то оно добавляется в множество t.
После этого происходит итерация по числам от 0 до 9 для проверки уникальности чисел, которые уже содержатся в множестве t.
Для каждого числа n выполняется проверка, не содержится ли оно уже в множестве t.
Если число n не содержится в множестве t, то оно добавляется в множество t.
Аналогичные шаги выполняются для чисел d, m и a.
Затем происходит проверка условия 4 (o 1000 + k 100 + n 10 + o) = d 1000 + o 100 + m * 10 + a.
Если условие выполняется, то проверяется, является ли сумма цифр d, o, m и a наибольшей среди всех найденных значений.
Если это так, то значения d, o, m и a сохраняются в переменных maxd, maxo, maxm и maxa соответственно.
После завершения всех итераций выводится сообщение с найденными значениями цифр, при которых сумма цифр в результате наибольшая.
В конце программы происходит чтение строки с помощью функции ReadLn.