помогите решить ребус! Опции

[eXTreMe]

я не знаю как решить ребус VOLVO+FIAT=MOTOR. Пожалуйста кто-нибудь помогите решить его!!!
Заранее благодарен, eXTreMe

[volvo]

Эх, так никто и не скажет про FIAT ...
eXTreMe, вот решение ребуса (взято отсюда: Множества: загадка-ребус и подправлено под нужную задачу...)

{
  VOLVO+FIAT=MOTOR;
}
uses crt;

var
  v, o, l, f, i, a, t, m, r: 0 .. 9;

  dig : set of 0..9;
  sum, motor: longint;

begin
  clrscr;
  for v:=0 to 9 do begin
    include(dig,v);
    for o:=0 to 9 do if not (o in dig) then begin
      include(dig,o);
      for l:=0 to 9 do if not (l in dig) then begin
        include(dig,l);
        for f:=0 to 9 do if not (f in dig) then begin
          include(dig,f);
          for i:=0 to 9 do if not (i in dig) then begin
            include(dig,i);
            for a:=0 to 9 do if not (a in dig) then begin
              include(dig,a);
              for t:=0 to 9 do if not (t in dig) then begin
                include(dig,t);
                for m:= 0 to 9 do if not (m in dig) then begin
                  include(dig, m);
                  for r := 0 to 9 do if not (r in dig) then begin
                    include(dig, r);

    sum := v*10000 + (o+f)*1000 + (l+i)*100 + (v+t)*10 + (o+t);
    motor := m*10000+o*1000+t*100+o*10+r;
    if sum = motor then
      writeln(':', v,o,l,v,o,'+',f,i,a,t,'=', m,o,t,o,r);

                    exclude(dig, r)
                  end;
                  exclude(dig, m);
                end;
                exclude(dig,t);
              end;
              exclude(dig,a);
            end;
            exclude(dig,i);
          end;
          exclude(dig,f);
        end;
        exclude(dig,l);
      end;
      exclude(dig,o);
    end;
    exclude(dig,v);
  end;
end.

В результате - 12 решений...