program element_majoritar;
var f,g:text;
    frecv:array[1..200000000] of longint;
    n,i,v,max,el:longint;
    bufin,bufout:array[1..65000] of byte;

begin
 assign (f,'elmaj.in'); reset (f);
 assign (g,'elmaj.out'); rewrite (G);
 settextbuf (f,bufin); settextbuf (g,bufout);
 readln (f,n);
 max:=-maxlongint;
 for i:=1 to n do
 begin
  read (f,v);
  if v>max then
   max:=v;
   frecv[v]:=frecv[v]+1;
 end;
 el:=maxlongint;
 for i:=1 to max do
 begin
  if frecv[i]>=trunc(n/2+1) then
   el:=i;
 end;
 if el<>maxlongint then
  write (g,el,' ',frecv[el])
 else
  write (g,-1);
 close (F); close (g);
end.