Program majoritar;
                  var n,i,j:longint;rs,k:word;
                      v:array[1..10000000]of longint;
                      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]);
     k:=1;
     for i:=1 to n-1 do
                     begin
                          rs:=1;
                          for j:=i+1 to n do
                                          if v[i]=v[j] then inc(rs);
                          if (rs>=(n div 2)+1) then begin
                                          write(fo,v[i],' ',rs);break;end
                                          else inc(k);
                     end;
     if k=n then write(fo,'-1');
     close(fo);
end.