Ребус-задачка

                
                                м  у  х  а
                   *
                            с  л  о  н
            ___________________________________
                        *       *       *       *       а
            *   *   *   х  
    *   *   *   *   у      
*   *   *   *   м          
______________________________________________________________________
*   *   *   *   *   *   *   *

uses crt;
var m,u,h,a,s,l,o,n:longint;
label l1;
begin
clrscr;
for m:=1 to 9 do
for u:=0 to 9 do
for h:=0 to 9 do
for a:=0 to 9 do
for s:=1 to 9 do
for l:=0 to 9 do
for o:=0 to 9 do
for n:=0 to 9 do
if (a*n mod 10=a)and(a*o mod 10=h)
and(a*l mod 10=u)and(a*s mod 10=m)
and(m<>u)and(m<>h)and(m<>a)and(m<>s)and(m<>l)and(m<>o)and(m<>n)
and (u<>h)and(u<>a)and(u<>s)and(u<>l)and(u<>o)and(u<>n)
and(h<>a)and(h<>s)and(h<>l)and(h<>o)and(h<>n)
and(a<>s)and(a<>l)and(a<>o)and(a<>n)
and(s<>l)and(s<>o)and(s<>n)
and(l<>o)and(l<>n)and(o<>n)
and((1000*m+100*u+10*h+a)*n>9999)
and((1000*m+100*u+10*h+a)*o<10000)
and((1000*m+100*u+10*h+a)*l>9999)
and((1000*m+100*u+10*h+a)*s>9999)then
 begin
  writeln(' ':4,m,u,h,a);
  writeln(' ':3,'*');
  writeln(' ':4,s,l,o,n);
  writeln(' ':3,'-----');
  writeln(' ':3,(1000*m+100*u+10*h+a)*n);
  writeln(' ':3,(1000*m+100*u+10*h+a)*o);
  writeln(' ',(1000*m+100*u+10*h+a)*l);
  writeln((1000*m+100*u+10*h+a)*s);
  writeln('--------');
  writeln((1000*m+100*u+10*h+a)*(1000*s+100*l+10*o+n));
  goto l1;{используем метку чтобы выйти сразу из всех циклов}
 end;
l1:begin
   write('Единственное решение');
   readln
   end;
end.