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