#1 HYN@2011-04-20 22:29:00
20755
回复
删除
program p;
var max,i,j,a,b,c:longint;
begin
max:=0;
for i:=1 to 7 do
begin
readln(a,b);
c:=a+b-8;
if c>max then
begin
max:=c;
j:=i;
end;
end;
if max>0 then begin write(j); exit; end
else write(max);
end.