Помогите решить задачу на множества (Паскаль)

[mpegable]

Требуется расшифровать запись арифметического равенства, в котором цифры заменены буквами, причем разные цифры заменены разными буквами. В записи числа первая слева цифра не является нулём. Вывести на экран все решения ребуса, соответствующего варианту задания, и количество решений. Повторяющиеся действия в решении оформить в виде подпрограмм.

КУБ = (К + У + Б)3 (скобка в 3-й степени)

Примечание: Алгоритм решения ребуса на примере
МУХА + МУХА = СЛОН
При решении ребусов одинаковым буквам соответствуют одинаковые цифры.
Например, частью решений ребуса МУХА + МУХА = СЛОН являются: 1345 + 1345 = 2690, 1354 + 1354 = 2708, ... , 4865 + 4865 = 9730, их всего 77.
Просмотреть все числа МУХА от 1000 до 4999 (Т.к. число МУХА четырехзначное,
то берется минимальное четырехзначное число – 1000. Т. к. число СЛОН четырехзначное, то берется максимальное число МУХА = 4999, при котором сумма все еще будет четырехзначной.).
1. Занести все цифры числа МУХА во множество.
2. Подсчитать количество различных цифр во множестве, если для числа МУХА оно равно 4, то переход к шагу 3.
3. Определить число СЛОН как МУХА + МУХА.
4. Занести все цифры числа СЛОН во множество.
5. Подсчитать количество различных цифр во множестве, если для числа СЛОН оно равно 4, то переход к шагу 6.
6. Если у чисел МУХА и СЛОН нет одинаковых цифр, то все условия на ребус выполнены, переход к шагу 7.
7. Увеличение счетчика для подсчета решений, вывод решения ребуса.
8. Вывод общего количества решений ребуса.]

(Паскаль)

[-=<[Evklidd]>=-]

Мой вариант:

program rebus;
var
 u, b: 0..9;
 k: 1..9;
 n1, n2: integer;
 s: set of 0..9;
function Kub(k,u,b: integer):longint;
var
 i: integer;
 st: longint;
 begin
  st:= 1;
  for i:= 1 to 3 do
   st:= st*(k+u+b);
  Kub:= st;
 end;
begin
 s:= [];
 writeln('Vuvod reshenia rebusa KUB = (K+U+B)^3 : ');
 for k:= 1 to 9 do
  begin
   s:= s+[k];
   for u:= 0 to 9 do
    begin
     if not (u in s) then
      begin
       s:= s+[u];
       for b:= 0 to 9 do
        begin
         if not (b in s) then
          begin
           s:= s+[b];
           n1:= 100*k+10*u+b;
           n2:= Kub(k,u,b);
           if n1 = n2 then
            writeln(n1, ' = (', k,'+', u,'+', b,')^3');
           s:= s-[b];
          end;
        end;
       s:= s-[u];
      end;
    end;
   s:= s-[k];
  end;
 readln;
end.

[Endok70]

Есть короткий вариант(мой)

program rebyc_3;
uses CRT;
var K,U,B:integer;
begin
For K:=0 to 9 do
For U:=0 to 9 do
For B:=0 to 9 do
If (K+U+B)*sqr(K+U+B)=(K*100+U*10+B) then
Writeln((K+U+B)*sqr(K+U+B),' ; K = ',K,' ; U = ',U,' ; B = ',B);
Readln;
end.

[Александер321]

Вот решение ребуса МУХА+МУХА=СЛОН через множества.

const t=9;
type Tdigits = set of 0..9;
var m,u,x,a,c,l,o,n: 0..9;
    digits:Tdigits;
    s: word;


begin
  digits:=[0..9];
  s:=0;
  for m:= 1 to t do
  begin
    exclude(digits,m);
    for u:= 0 to t do
      if u in digits then
      begin
        exclude(digits,u);
        for x:= 0 to t do
          if x in digits then
          begin
            exclude(digits,x);
            for a:= 0 to t do
              if a in digits then
              begin
                exclude(digits,a);
                s:=(m*1000+u*100+x*10+a)*2;
                if s<10000 then
                begin
                  c:=s div 1000;
                  l:=(s div 100) mod 10;
                  o:=(s div 10) mod 10;
                  n:=s mod 10;
                  if c in digits then
                  begin
                    exclude(digits,c);
                    if l in digits then
                    begin
                      exclude(digits,l);
                      if o in digits then
                      begin
                        exclude(digits,o);
                        if n in digits then
                          writeln('c=',c,' l=',l,' o=',o,' n=',n,' m=',m,' u=',u,' x=',x,' a=',a);
                        include(digits,o);
                      end;
                      include(digits,l);
                    end;
                    include(digits,c);
                  end;
                end;
                include(digits,a);
              end;
            include(digits,x);
          end;
        include(digits,u);
      end;
    include(digits,m);
  end;
  readln


end.