Решить ребус: "один один один один один=пять"

var o,d,i,n,p,y,t,m:0..9;
    n1,n2:integer;
    s:set of 0..9;
procedure Print(x,y:integer);
Begin
  write(x);
  write(' * 5 ');
  write(' = ');
  writeln(y);
end;
begin
s:=[1];//первая цифра в числе "один" только 1, если больше, то результат из 5 знаков
for d:=0 to 9 do
if not(d in s) then
 begin
  s:=s+[d];
  for i:=0 to 9 do
  if not (i in s)then
   begin
    s:=s+[i];
    for n:=0 to 9 do
    if not (n in s)then
     begin
      s:=s+[n];
      for p:=6 to 9 do  //первая цифра числа "пять" не меньше 6 (12*5=60)
      if not (p in s) then
       begin
        s:=s+[p];
        for y:=0 to 9 do
        if not (y in s) then
         begin
          s:=s+[y];
          for t:=0 to 9 do
          if not (t in s) then
           begin
            s:=s+[t];
            for m:=0 to 9 do
            if not (m in s) then
             begin
              s:=s+[m];
              n1:=1000+100*d+10*i+n;
              n2:=1000*p+100*y+10*t+m;
              if n1*5=n2 then Print (n1,n2);
              s:=s-[m];
             end;
            s:=s-[t];
           end;
          s:=s-[y];
         end;
        s:=s-[p];
       end;
      s:=s-[n];
     end;
    s:=s-[i];
   end;
  s:=s-[d]
 end;
end.

var
a,b,o,d,i,n,p,y,t,j:integer;
begin
 
for a:=1000 to 2000 do
begin
b:=a*5;
o:=a div 1000;
d:=a div 100 mod 10;
i:=a div 10 mod 10;
n:=a mod 10;
p:=b div 1000;
y:=b div 100 mod 10;
t:=b div 10 mod 10;
j:=b mod 10;
if (o<>d)and (o<>i)and(o<>n)and(o<>p)and(a<>y)and(o<>t)and(o<>j)then
if (d<>i)and(d<>n)and(d<>p)and(d<>y)and(d<>t)and(d<>j) then
if (i<>n)and(i<>p)and(i<>y)and(i<>t)and(i<>j) then
if (n<>p)and(n<>y)and(n<>t)and(n<>j) then
if (p<>y)and(p<>t)and(p<>j) then
if (y<>t)and(y<>j) then
if (t<>j) then
write (a,'*5=',b,'    ');
end;
end.