Ребус "ТОЧКА + КРУГ = КОНУС" где каждой букве соответствует определённая цифра.

program a11;
 
type
 mn= set of 0..9;
 
var
 n1,n2,n: integer;
 m,y,x,a: 0..9;
 a1,a2,a3,a4: 0..9;
 s1,s2: mn;
 
 procedure print(x,y: integer);
 begin
  writeln(x:5);
  writeln('+');
  writeln(x:5);
  writeln('_____');
  writeln(y:5);
 end;
 
begin
 n:=0;
 s1:=[];
 s2:=[];
 
 for m:=1 to 4 do
 begin
  s1:=s1+[m];
  for y:=0 to 9 do
  if not (9 in s1) then
  begin
   s1:=s1+[y];
   for x:=0 to 9 do
   if not (x in s1) then
   begin
   s1:=s1+[x];
   for a:=1 to 9 do
   if not (a in s1) then
   begin
   s1:=s1+[a];
   n1:=m*1000+100*y+10*x+a;
   n2:=2*n1;
   a1:=n2 div 1000;
   a2:=n2 div 100 mod 10;
   a3:=n2 div 10 mod 10;
   a4:=n2 mod 10;
   s2:=[a1,a2,a3,a4];
   if (s1*s2=[]) and ([a1]*[a2]*[a3]*[a4]=[])
   then
   begin
   n:=n+1;
   print(n1,n2);
   end;
   s1:=s1-[a];
   end;
   s1:=s1-[x];
   end;
   s1:=s1-[y];
   end;
   s1:=s1-[m];
   end;
   writeln('n=',n);
   end.
   write('hellow')
   end.

Program rebus;
Type mn = set of 0..9;
var t,o,ch,k,a,r,u,g,k1,o1,n1,u1,s1:0..9;
    mn1,mn2,mn3:mn;
    num1,num2,sum:integer;
begin
 
For t:=1 to 9 do
If not (t in mn1)
 Then begin
 mn1:=mn1+[t];
 For o:=0 to 9 do
 If not (o in mn1)
  Then begin
  mn1:=mn1+[o];
  For ch:=0 to 9 do
  If not (ch in mn1)
   Then begin
   mn1:=mn1+[ch];
   For k:=1 to 9 do
   If (not (k in mn1)) and (not (k in mn2))
    Then begin
    mn1:=mn1+[k];
    mn2:=mn2+[k];
    For a:=0 to 9 do
    If not (a in mn1)
     Then begin
     mn1:=mn1+[a];
     For r:=0 to 9 do
     If not (r in mn2)
      Then begin
      mn2:=mn2+[r];
      For u:=0 to 9 do
      If not (u in mn2)
       Then begin
       mn2:=mn2+[u];
       For g:=0 to 9 do
       If not (g in mn2)
        Then begin
        mn2:=mn2+[g];
        num1:=t*10000+o*1000+ch*100+k*10+a;
        num2:=k*1000+r*100+u*10+g;
        sum:=num1+num2;
        k1:=sum div 10000 mod 10;
        o1:=sum div 1000 mod 10;
        n1:=sum div 100 mod 10;
        u1:=sum div 10 mod 10;
        s1:=sum mod 10;
        mn3:= [k1,o1,n1,u1,s1];
        If (mn1*mn2 = [k]) and (mn1*mn3 = [k,o]) and (mn2*mn3 = [u,k]) and ([k1]*[o1]*[n1]*[u1]*[s1]=[])
        Then writeln(num1,' + ',num2,' = ',sum);
        
        
        
        
        mn2:=mn2-[g];
        end;
       mn2:=mn2-[u];
       end;
      mn2:=mn2-[r];
      end;
     mn1:=mn1-[a]
     end;
    mn1:=mn1-[k];
    mn2:=mn2-[k];
    end;
   mn1:=mn1-[ch];
   end;
  mn1:=mn1-[o];
  end;
 mn1:=mn1-[t];
 end;
end.

If (n1<>s1) and (k=k1) and (o=o1) and (u=u1) and ([k1]*[o1]*[n1]*[u1]*[s1]=[ ]) and (mn1*mn2 = [k]) and (mn1*mn3 = [k,o]) and (mn2*mn3 = [u,k])
        Then writeln(num1,' + ',num2,' = ',sum);

{
  TOChKA+KRUG=KONUS;
}
var
  t, o, ch, k, a, r, u, g, n, s: 0 .. 9;
 
  dig : set of 0..9;
  sum, konus: longint;
 
begin
  for t:=0 to 9 do begin
    include(dig,t);
    for o:=0 to 9 do if not (o in dig) then begin
      include(dig,o);
      for ch:=0 to 9 do if not (ch in dig) then begin
        include(dig,ch);
        for k:=0 to 9 do if not (k in dig) then begin
          include(dig,k);
          for a:=0 to 9 do if not (a in dig) then begin
            include(dig,a);
            for r:=0 to 9 do if not (r in dig) then begin
              include(dig,r);
              for u:=0 to 9 do if not (u in dig) then begin
                include(dig,u);
                for g:= 0 to 9 do if not (g in dig) then begin
                  include(dig, g);
                  for n := 0 to 9 do if not (n in dig) then begin
                    include(dig, n);
                      for s := 0 to 9 do if not (s in dig) then begin
                        include(dig, s);
 
    {
      Именно здесь происходит проверка, удовлетворяют ли
      значения переменных, полученные на этом шаге заданному ребусу
    }
    sum := t*10000 + (o+k)*1000 + (ch+r)*100 + (k+u)*10 + (a+g);
    konus := k*10000+o*1000+n*100+u*10+s;
 
    {
      Если условие выполнено - напечатать ответ
    }
    if sum = konus then
      writeln(':', t,o,ch,k,a,'+',k,r,u,g,'=', k,o,n,u,s);
      
                        exclude(dig, s);
                      end;
                    exclude(dig, n)
                  end;
                  exclude(dig, g);
                end;
                exclude(dig,u);
              end;
              exclude(dig,r);
            end;
            exclude(dig,a);
          end;
          exclude(dig,k);
        end;
        exclude(dig,ch);
      end;
      exclude(dig,o);
    end;
    exclude(dig,t);
  end;
end.