Ребус: "ВАНЯ+ВАНЯ+ВАНЯ+ВАНЯ+ВАНЯ=ИВАНЫ"

var
  v,a,n,ya,i,y:0..9;
  d:set of 0..9;
  sum1,sum2:longint;
begin
  d:=[];
  for v:=0 to 9 do begin
    d:=d+[v];
      for a:=0 to 9 do if not (a in d) then begin
        d:=d+[a];
          for n:=0 to 9 do if not (n in d) then begin
            d:=d+[n];
              for ya:=0 to 9 do if not (ya in d) then begin
                d:=d+[ya];
                  for i:=0 to 9 do if not (i in d) then begin
                    d:=d+[i];
                      for y:=0 to 9 do if not (y in d) then begin
                        d:=d+[y];
                        sum1:=5*(v*1000+a*100+n*10+ya);
                        sum2:=i*10000+v*1000+a*100+n*10+y;
                        if sum1=sum2 then
                          writeln(v,a,n,ya,'+',v,a,n,ya,'+',v,a,n,ya,'+'
                          ,v,a,n,ya,'+',v,a,n,ya,'=',i,v,a,n,y);
                        d:=d-[y];
                      end;
                    d:=d-[i];
                  end;
                d:=d-[ya];
              end;
            d:=d-[n];
          end;
        d:=d-[a];
      end;
    d:=d-[v];
  end;  
end.