var
   f:text;
   a1,b1,a2,b2,a3,b3,s,st,i,j,y,k:longint;
begin
     assign(f,'plus.in');reset(f);
     read(f,s);
     read(f,b1,a1);read(f,b2,a2); read(f,b3,a3);
     close(f);
     assign(f,'plus.out');rewrite(f);
     k:=0;
     if (a1<=0) and (a2<=0) and (a3=0)and (s>0) then write(f,0); close(f); exit;
     if (a1>=0) and (a2>=0) and (a3>=0)and (s<0)   then write(f,0); close(f); exit;
     for i:=0 to b1 do
         for j:=0 to b2 do
             for y:=0 to b3 do
              begin
              st:=i*a1+j*a2+y*a3;
              if st=s then k:=k+1;
              end;

     write(f,k);
     close(f);
end.