program element;
var f,g:text;
    n,i:longint;
    frecv:array[1..200000000] of longint;
    nr,max,max2,poz:longint;

begin
 assign (f,'elmaj.in'); reset (f);
 assign (g,'elmaj.out'); rewrite (g);
 readln (f,n);
 max:=0;
 for i:=1 to n do
 begin
  read (f,nr);
  if nr>max then
   max:=nr;
  frecv[nr]:=frecv[nr]+1;
 end;
 max2:=0; poz:=0;
 for i:=1 to max do
  if frecv[i]>max2  then
  begin
   max2:=frecv[i];
   poz:=i;
  end;
 if max2<n div 2+1 then
  write (g,-1)
 else
  write (g,poz,' ',max);
 close (F); close (g);
end.