var v:array[1..1000000]of longint;
    i,n,k,j:longint;f,g:text;
begin
assign(f,'elmaj.in');reset(f);
assign(g,'elmaj.out');rewrite(g);
readln(f,n);k:=0;
for i:=1 to n do read(f,v[i]);
for i:=1 to n do begin
for j:=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);break;end
                       else write(g,'-1');end;
close(f);close(g);end.