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); read(fi,a[1]);  k:=a[1]; nr:=1;
for i:=1 to n do begin
                  read(fi,a[i]);
                   if nr>=0 then begin
                                 if a[i]=k then inc(nr)
                                            else dec(nr);
                                   end
                            else begin
                                  k:=a[i]; nr:=1;
                                   end;
                  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.