Решить ребус - БЛОК*7=СТЕНА

program sdf;
var b,l,o,k,s,t,e,n,a: integer;
begin
for b:=1 to 9 do
    for l:=0 to 9 do
        for o:=0 to 9 do
            for k:=0 to 9 do
                for s:=1 to 9 do
                    for t:=0 to 9 do
                        for e:=0 to 9 do
                            for n:=0 to 9 do
                                for a:=0 to 9 do
if  (b<>l) and (b<>l) and (b<>o) and (b<>k) and (b<>s) and (b<>t) and (b<>e)
    and (b<>n) and (b<>a) and (l<>o) and (l<>k) and (l<>s) and (l<>t) and
    (l<>e) and (l<>n) and (l<>a) and (o<>k) and (o<>s) and (o<>t) and (o<>e)
    and (o<>n) and (o<>a) and (k<>s) and (k<>t) and (k<>e) and (k<>n) and
    (k<>a) and (s<>t) and (s<>e) and (s<>n) and (s<>a) and (t<>e) and (t<>n)
    and (t<>a) and (e<>n) and (e<>a) and (n<>a) and
   ((b*7000+l*700+o*70+k*7)=(s*10000+t*1000+e*100+n*10+a)) then
   writeln(b,l,o,k,'*7=',s,t,e,n,a);
   readln;
end.

program sdf;
var b,l,o,k,s,t,e,n,a:integer;
begin
for b:=1 to 9 do
for l:=0 to 9 do
for o:=0 to 9 do
for k:=0 to 9 do
for s:=1 to 9 do
for t:=0 to 9 do
for e:=0 to 9 do
for n:=0 to 9 do
for a:=0 to 9 do
if (b*7000+l*700+o*70+k*7=s*10000+t*1000+e*100+n*10+a)
and (b<>l) and (b<>o) and (b<>k)and (b<>s) and (b<>t) and (b<>e) and (b<>n) and (b<>a)
and (l<>o) and (l<>k) and (l<>s)and (l<>t) and (l<>e) and (l<>n) and (l<>a)
and (o<>k) and (o<>s) and (o<>t)and (o<>e) and (o<>n) and (o<>a)
and (k<>s) and (k<>t) and (k<>e)and (k<>n) and (k<>a)
and (s<>t) and (s<>e) and (s<>n)and (s<>a)
and (t<>e) and (t<>n) and (t<>a)
and (e<>n) and (e<>a)
and (n<>a)  then
writeln(b,l,o,k,'*7=',s,t,e,n,a);
end.

var b,l,o,k,s,t,e,n,a, a0, a2, n0, n2, e0, e2, t0:integer;
begin
 for b:=1 to 9 do
  for l:=0 to 9 do
   for o:=0 to 9 do
    for k:=1 to 9 do
     if (b<>l) and (b<>o) and (b<>k) and (l<>o) and (l<>k) and (o<>k)
      then
       begin
        a0:= k*7;
        a:= a0 mod 10;
        a2:= a0 div 10;
        n0:= o*7+a2;
        n:= n0 mod 10;
        n2:= n0 div 10;
        e0:= l*7+n2;
        e:= e0 mod 10;
        e2:= e0 div 10;
        t0:= b*7+e2;
        t:= t0 mod 10;
        s:= t0 div 10;
        if (s<>0) and (s<>t) and (s<>e) and (s<>n) and (s<>a) and (s<>b) and (s<>l) and (s<>o) and (s<>k)
          and (t<>e) and (t<>n) and (t<>a) and (t<>b) and (t<>l) and (t<>o) and (t<>k)
          and (e<>n) and (e<>a) and (e<>b) and (e<>l) and (e<>o) and (e<>k)
          and (n<>a) and (n<>b) and (n<>l) and (n<>o) and (n<>k)
          and (a<>b) and (a<>l) and (a<>o) and (a<>k)
         then
          if (b*1000+l*100+o*10+k)*7=s*10000+t*1000+e*100+n*10+a
           then writeln(b,l,o,k,'*7=',s,t,e,n,a);
      end;    
end.