var t,x,y,j,i:integer;
a:array[1..7]of integer;
begin
for i:=1 to 7 do
begin
readln(x,y);
a[i]:=x+y;
end;
for i:=1 to 6 do
for j:=i+1 to 7 do
if a[i]<a[j] then
begin
t:=a[i]; a[i]:=a[j]; a[j]:=t;
end;
i:=0;
repeat
inc(i);
until a[i]>8;
writeln(i);
end.