C++ :

#include<iostream>
using namespace std;
int a[7];
int main()
{
	int x,y;
	for (int i=1;i<=7;i++)
	{
		cin>>x>>y;a[i]=x+y;
	}
	int max=8,c;
	for (int i=1;i<=7;i++)
	{
		if (a[i]>max) max=a[i],c=i;
	}
	if (max==8) cout<<0<<endl;
	else cout<<c<<endl;
	return 0;
}

Pascal :

var i,a,b,max,day:longint;
begin
  for i:=1 to 7 do
    begin
      readln(a,b);
      if (a+b>max)and(a+b>8) then begin max:=a+b;day:=i;end;
    end;
  writeln(day);
end.