Задачу решается вот таким жутким перебором (который, если немного подумать можно ещё сократить):
//Рюмка+рюмка=авария
var a,b,c,d,e,f,g,h:integer;
begin
for a:=1 to 9 do  //р
 for b:=0 to 9 do  //ю
  if (ba) then
   for c:=0 to 9 do  //м
    if (ca)and(cb) then
     for d:=0 to 9 do  //к
      if (da)and(db)and(dc) then
       for e:=1 to 1 do  //а
        if (ea)and(eb)and(ec)and(ed) then
         for f:=0 to 9 do //в
          if (fa)and(fb)and(fc)and(fd)and(fe)then
           for g:=0 to 9 do  //и
            if (ga)and(gb)and(gc)and(gd)and(ge)and(gf)then
             for h:=2 to 2 do  //я
              if (ha)and(hb)and(hc)and(hd)and(he)and(hf)and(hg)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