var

b,c,d,e,f,g:integer;

begin

e:=0;

for b:=1 to 7 do begin read(c,d);f:=c+d;if f>e then begin e:=f;g:=b;end;end;

if e>8 then write(g) else write(0);

end.

对这题有疑问的同学可以参考一下。。。。。。。