var v:array[1..1000000]of longint;
    i,n,k,j:longint;f,g:text;ok:boolean;
begin
assign(f,'elmaj.in');reset(f);
assign(g,'elmaj.out');rewrite(g);
readln(f,n);k:=1;ok:=true;
for i:=1 to n do read(f,v[i]);

for i:=1 to n do begin
for j:=i+1 to n do
if v[i]=v[j]then k:=k+1;
if k>n div 2 then begin write(g,v[i],' ',k);ok:=false;break;end;end;
if ok=true then write(g,'-1');
close(f);close(g);end.