type vector=array[1..1000000] of longint;
     element=array[1..1000000] of longint;
     nrdeapa=array[1..1000000] of longint;
var v:vector;
    a:element;
    b:nrdeapa;
    i,j,z,n,k:longint;
    f,h:text;
begin
assign(f,'elmaj.in');
reset(f);
readln(f,n);
for i:=1 to n do read(f,v[i]);

z:=0;
for i:=1 to n do if v[i]<>-1083 then
    begin
    inc(z);
    a[z]:=v[i];
    b[z]:=1;
    for j:=i+1 to n do if (v[j]<>-1083) and (v[i]=v[j]) then begin
                                       inc(b[z]);
                                       v[j]:=-1083;
                                       end;
    end;
    k:=0;
for i:=1 to z do if b[i]>=(n div 2)+1 then k:=i;
assign(h,'elmaj.out');
rewrite(h);
if k<>0 then write(h,a[k],' ',b[k]) else write(h,'-1');
close(f);
close(h);
end.