program xuyi;

var

{ a,b:array[1..7] of integer;

s:array[1..20]of integer; }

n, m,x,y,i,k,j:integer;

begin

{ for i:=1 to 7 do;

begin

b[j]:=1;

for j:=1 to 2 do

begin

read (x);

a[i]:=a[j]+x;

end;

end;}

n:=0; k:=0;

for i:=1 to 7 do

begin

readln(x,y);

m:=x+y;

if m 8) and (m>n) then

begin

n:=m;k:=i;

end;

end;

{ else writeln(y); }

writeln(k);

readln;

end.