var n,i,j:byte; d:array [1..100] of longint; sum,cem:qword; begin readln(n); for i:=1 to n do begin read(d[i]); sum:=sum+d[i]; end; if d[1]>1 then begin writeln(1); exit; end; i:=0; repeat inc(i); cem:=0; for j:=1 to i do cem:=cem+d[j]; if cem+1