var v:array[1..1000000] of 1..2000000000;
    i,nr,k,j,n:0..200000000;
    fi,fo:text;
begin
assign(fi,'elmaj.in');reset(fi);
assign(fo,'elmaj.out');rewrite(fo);

readln(fi,n);
for i:=1 to n do read(fi,v[i]);
close(fi);

k:=0;
for i:=1 to n do begin nr:=0;
                       for j:=1 to n do if v[i]=v[j] then inc(nr);
                       if (nr>=(n div 2)+1) then begin write(fo,v[i],' ',nr);
                                                       break;
                                                   end
                                              else inc(k);
                  end;
if k=n then write(fo,-1);
close(fo);
end.