{element majoritar-infoarena}
program elem_maj;
type vect=array[0..1000000]of longint;
var a:vect;
    i,n,max,nra,nr,x:longint;
    f,g:text;
begin
assign(f,'elmaj.in');reset(f);
assign(g,'elmaj.out');rewrite(g);
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,max,' ',nr)
         else writeln(g,-1);
close(f); close(g);
end.