const
  N=30;
var
  a:array[1..N] of integer;
  i,sum,num: integer;
begin
  for i:=1 to N do
    begin
      write('A[',i,']= ');
      read(a[i]);
    end;
  sum:=0;
  for i:=1 to N-1 do
    if (a[i]+a[i+1]) > sum then 
      begin
        sum:= a[i]+a[i+1];
        num:= i;
      end;
  writeln(num);
end.