Королева инстаграмма

var
  i,j,k,l:word;
begin
  assign(input,'input.txt'); reset(input);
  assign(output,'output.txt');rewrite(output);
  read(i);l:=1;
  for i:=1 to i do begin
    read(j);
    if j>k then begin k:=j; l:=i end
  end;
  write(l);
  close(input);
  close(output)
end.

var
  a : array [1..100] of Integer;
  n, i, m : Integer;
begin
  assign(input,'input.txt'); reset(input);
  readln(n);
  for i := 1 to 100 do a[i] := 0;
  for i := 1 to n do
    begin
      read(m);
      inc(a[m]);
    end;
  close(input);
  m := 1;
  for i := 2 to 100 do
    if a[i] > a[m] then
      m := i;
  assign(output,'output.txt'); rewrite(output);
  write(m);
  close(output);
end.