C :

#include<stdio.h>
int main()
{
    int i,a[7],b[7];
  for(i=0;i<7;i++)
  {
    scanf("%d %d",&a[i],&b[i]);
  }
  for(i=0;i<7;i++)
    if(a[i]+b[i]>8)
    break;
  printf("%d\n",i+1);
return 0;
}

C++ :

#include<iostream>
#include<cmath>
#include<cstdio>
#include<cstdlib>
using namespace std;
int main ()
{
 int i,m,n,j,max,xq;
 int a[1000];
 max=8;
 for (i=1;i<=7;++i)
  {
  	cin>>m>>n;
  	j=m+n;
  	if (j>max)
	 {
	  xq=i;
	  max=j;
     }
  }
 if (max>8) cout<<xq;
  else cout<<0;
 return 0;
}

Pascal :

var a:array[1..7]of integer;
    i,x,y,max,day:integer;
    yes:boolean;
begin
  for i:=1 to 7 do
      begin
        readln(x,y);
        a[i]:=x+y;
      end;
  yes:=true;
  max:=0;
  for i:=1 to 7 do
     if (a[i]>8)then
       begin
       yes:=false;
       if a[i]>max then
         begin
           max:=a[i];
           day:=i;
         end;
       end;
    if yes then writeln(0)
           else writeln(day);
  end.