Расшифровать ребус (6 * Город = Страна)

var
  g, o, r, d, s, t, n: integer;
  max, maxs, maxt, maxr, maxd, maxn: integer;
  m: set of byte;
 
begin
  m := [];
  for g := 1 to 9 do
    if not (g in m) then
    begin
      Include(m, g);
      for o := 0 to 9 do
        if not (o in m) then
        begin
          Include(m, o);
          for r := 0 to 9 do
            if not (r in m) then
            begin
              Include(m, r);
              for d := 0 to 9 do
                if not (d in m) then
                begin
                  Include(m, d);
                  for s := 0 to 9 do
                    if not (s in m) then
                    begin
                      Include(m, s);
                      for t := 1 to 9 do
                        if not (t in m) then
                        begin
                          Include(m, t);
                          for n := 0 to 9 do
                            if not (n in m) then
                            begin
                              Include(m, n);
                              if 6 * (g * 10000 + o * 1000 + r * 100 + o * 10 + d) = s * 100000 + t * 10000 + r * 1000 + d * 100 + n * 10 + d then
                              begin
                                if s + t + r + d + n + d > max then
                                begin
                                  max := s + t + r + d + n + d;
                                  maxs := s; maxt := t;
                                  maxr := r; maxd := d;
                                  maxn := n
                                end;
                                WriteLn('6 * ', g, o, r, o, d, ' = ', s, t, r, d, n, d)
                              end;
                              Exclude(m, n)
                            end;
                          Exclude(m, t)
                        end;
                      Exclude(m, s)
                    end;
                  Exclude(m, d)
                end;
              Exclude(m, r)
            end;
          Exclude(m, o)
        end;
      Exclude(m, g)
    end;
  WriteLn('Значения цифр, при которых сумма цифр в результате наибольшая:');
  WriteLn('С = ', maxs, '; Т = ', maxt, '; Р = ', maxr, '; А = ', maxd, '; Н = ', maxn);
  ReadLn
end.