var
i,s,sx,a,b:longint;
begin
s:=0;
sx:=8;
for i:=1 to 7 do
begin
readln (a,b);
if a+b>sx then
begin
sx:=a+b;
s:=i;
end;
end;
write (s);
end.

你是才学吧..我大概知道你是哪里错了..

Var a,b,c,d,e,f,g,h,i,j,k,l,m,n,O,T,W,U,R,S,Y,x:longint;

begin

readln(a,b);

readln(c,d);

readln(e,f);

readln(g,h);

readln(i,j);

readln(k,l);

readln(m,n);

O:=b+a;

T:=c+d;

W:=e+f;

U:=g+h;

R:=i+j;

S:=k+l;

Y:=m+n;

if T>O then x:=2 else x:=1;

if W>T then x:=3 else x:=2;

if U>W then x:=4 else x:=3;

if R>U then x:=5 else x:=4;

if SS then x:=7 else x:=6;

writeln(x);

end.

我只举一个例子..

如果O>W>T>U>S>R>Y

那么 你的程序会输出3而不是1.

但实际上答案是1..

你这样的枚举不但会使你的程序看起很丑..而且会漏掉很多情况..

我建议你最好用一个循环做..

如果不懂.. 可以加我QQ 529989111