var     f,g:text;
        bufin,bufout:array[1..65000] of byte;
        v:array[-1..1000010] of longint;
        i,n,nr,maj:longint;
begin
        assign(f,'elmaj.in');
        assign(g,'elmaj.out');
        reset(f);
        rewrite(g);
        settextbuf(f,bufin);
        settextbuf(g,bufout);
        readln(f,n);
        maj:=0;
        nr:=0;
        for i:=1 to n do begin
                read(f,v[i]);
                if nr=0 then begin
                        nr:=1;
                        maj:=v[i];
                end
                else
                        if v[i]=maj then inc(nr)
                                else dec(nr);
        end;
        nr:=0;
        for i:=1 to n do if v[i]=maj then inc(nr);
        if nr>=n div 2+1 then writeln(g,maj,' ',nr) else writeln(g,-1);
        close(g);
end.