C++ :

#include <cstdio>
#include <cstdlib>
using namespace std;
int main()
{
	int array[8];
	int max=0;
	int maxday;
	for(int i=1;i<=7;i++)
	{
		int a,b;
		scanf("%d%d",&a,&b);
		array[i]=a+b;
		if(array[i]>max)
		{
			maxday=i;
			max=array[i];
		}
	}
	if(max<=8)
	{
		printf("0");
	}
	else
	{
		printf("%d",maxday);
	}
	//system("pause");
	return 0;
}

Pascal :

var
 max,i,x,a,b:longint;
begin
 readln(a,b);
 if a+b>8 then begin max:=a+b; x:=1; end
  else begin max:=0; x:=0; end;
 for i:=2 to 7 do
  begin
   readln(a,b);
   if a+b>8 then
   if a+b>max then
    begin
     max:=a+b;
     x:=i;
    end;
  end;
 if max=0 then writeln('0')
  else writeln(x);
end.