{element majoritar-infoarena}
program elem_maj;
type vect=array[1..1000000]of longint;
var a:vect;
    intrare,iesire:array[1..1shl 25] of char;
    i,n,max,nr,x:longint;
    f,g:text;
begin
assign(f,'elmaj.in');reset(f); settextbuf(f,intrare);
assign(g,'elmaj.out');rewrite(g); settextbuf(g,iesire);
readln(f,n);
max:=-1;
for i:=1 to n do begin
                 read(f,x);
                 inc(a[x]);
                 if a[x]>max then begin
                                  max:=a[x]; nr:=x;
                                  end;
                 end;
if max>0 then writeln(g,nr,' ',max)
         else writeln(g,-1);
close(f); close(g);
end.