Program majoritar;
                  var n,i,j,rs:smallint;
                      v:array[1..1000000]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]);
     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
                                          write(fo,v[i],' ',rs);if (rs>=(n div 2)+1) then break;
                          if (i=n-1)and(j=n)then write(fo,'-1');
                     end;
     close(fo);
end.