program elemaj;
   var  fi,fo:text;
        v:array[1..1000000] of int64;
        n,i,j,k:word;
        maj:int64;

begin
      assign(fi,'elemaj.in');reset(fi);
      assign(fi,'elemaj.out');rewrite(fo);
      readln(fi,n);
      for i:=1 to n do
                      read(v[i]);
      close(fi);
      k:=0;maj:=v[1];i:=1;j:=1;
      while (i<=n) do begin
                      if v[i]=maj then inc(k);
                      if (i=n) and (k=0) then maj:=v[j+1];
                      end;
      if (k>=((n div 2)+1)) then write(fo,maj,' ',k) else write('-1');
      close(fo);
end.