var i,p,q,s,nr:longint;
    a:array[-1..1] of longint;
    f1,f2:text;
begin
    assign(f1,'plus.in');
    assign(f2,'plus.out');
    reset(f1);
    rewrite(f2);

    readln(f1,s);
    for i:=1 to 3 do
    begin
         readln(f1,p,q);
         a[q]:=a[q]+p;
    end;
    if (a[1]>=s) then
    begin
         nr:=0;
         nr:=nr+a[0]+1;
         for i:=1 to a[1]-s do
         if (a[-1]>0) then
         begin
              nr:=nr+a[0]+1;
              a[-1]:=a[-1]-1;
         end
         else break;

    end
    else nr:=1;

    writeln(f2,nr);
    close(f1);
    close(f2);
end.