var f,g:text;
min,i,n,max:longint;
a,b:array[0..1000000]of longint;
begin
assign(f,'tanso.inp');reset(f);
assign(g,'tanso.out');rewrite(g);
read(f,n);
for i:=1 to n do
        read(f,a[i]);
for i:=1 to n do
        inc(b[a[i]]);
        min:=maxlongint;
for i:=1 to n do
        if (b[a[i]]>=max)and(a[i]<min) then
                begin
                min:=a[i];
                max:=b[a[i]];
                end;
writeln(g,min,' ',max);
close(f);close(g);
end.

const fi='TANSO.INP';
fo='TANSO.OUT';
var f1,f2:text;
a:array[1..1000000] of longint;
tam:array[-1000000..1000000] of longint;
n,i,s,max,k:longint;
begin
    assign(f1,fi);reset(f1);
    assign(f2,fo);rewrite(f2);
    readln(f1,n);
    for i:=1 to n do read(f1,a[i]);
    for i:=1 to n do
       begin
           s:=a[i];
           inc(tam[s]);
           if tam[s]>max then
              begin
                  max:=tam[s];
                  k:=s;
              end
           else if tam[s]=max then
              if k>s then k:=s;
       end;
    writeln(f2,k,' ',max);
    close(f1);close(f2);
end.

*rồi chị có nhìn thấy đáp án không