Program elmaj;
 var a:array [1..1000001] of longint;
     b1:array [1..1 shl 17] of char;
     i,j,k,nr,n:longint;
     fi,fo:text;
begin
 assign(fi,'elmaj.in');
  assign(fo,'elmaj.out');
 settextbuf(fi,b1);
 reset(fi); rewrite(fo);
 readln(fi,n);
  for i:=1 to n do read(fi,a[i]);
 k:=a[1]; nr:=1;
 for i:=2 to n do
  if nr>=0 then begin
                if a[i]=k then inc(nr)
                           else dec(nr);
                end
           else begin
                  k:=a[i]; nr:=1;
                   end;
  nr:=0;
 for i:=1 to n do
  if a[i]=k then inc(nr);
 if nr>=(n div 2)+1 then write(fo,k,' ',nr)
                  else write(fo,'-1');
close(fo);
end.