var
  a : array [1..1000] of longint;
  n,max,i,nom : longint;
begin
  for i:=1 to 7 do
    readln(a[i]);
  max:=a[1];
  nom:=1;
  for i:=1 to 7 do
    if a[i]>max then begin
      max:=a[i];
      nom:=i;
    end;
  writeln(nom);
end.