Рюмка+рюмка=авария

Решить при помощи программы на паскале

Задачу решается вот таким жутким перебором (который, если немного подумать можно ещё сократить) :

//Рюмка+рюмка=авария

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