Рюмка+рюмка=аварияРешить при поддержки программы на паскале

Задачу решается вот таким стршным перебором (который, если немножко подумать можно ещё уменьшить):
//Рюмка+рюмка=авария
var a,b,c,d,e,f,g,h:integer;
begin
for a:=1 to 9 do  //р
 for b:=0 to 9 do  //ю
  if (blt;gt;a) then
   for c:=0 to 9 do  //м
    if (clt;gt;a)and(clt;gt;b) then
     for d:=0 to 9 do  //к
      if (dlt;gt;a)and(dlt;gt;b)and(dlt;gt;c) then
       for e:=1 to 1 do  //а
        if (elt;gt;a)and(elt;gt;b)and(elt;gt;c)and(elt;gt;d) then
         for f:=0 to 9 do //в
          if (flt;gt;a)and(flt;gt;b)and(flt;gt;c)and(flt;gt;d)and(flt;gt;e)then
           for g:=0 to 9 do  //и
            if (glt;gt;a)and(glt;gt;b)and(glt;gt;c)and(glt;gt;d)and(glt;gt;e)and(glt;gt;f)then
             for h:=2 to 2 do  //я
              if (hlt;gt;a)and(hlt;gt;b)and(hlt;gt;c)and(hlt;gt;d)and(hlt;gt;e)and(hlt;gt;f)and(hlt;gt;g)then
               if 2*(a*10000+b*1000+c*100+d*10+e)=e*100000+f*10000+e*1000+a*100+g*10+h then
                writeln(a*10000+b*1000+c*100+d*10+e,' ',e*100000+f*10000+e*1000+a*100+g*10+h);
end.

Итог:
85931 171862