Const Fi='MAX.INP';
      Fo='MAX.OUT';
Var f,g: text;
    A: array[1..10000] of longint;
    n,i,d,max,so,j: longint;
Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);
        Readln(f,n);
        For i:=1 to n do Readln(f,A[i]);

        max:=0;
        For i:=1 to n-1 do
        Begin
                d:=1;
                For j:=i+1 to n do
                        If A[i]=A[j] then inc(d);
                If d>max then
                Begin
                        max:=d;
                        so:=A[i];
                End;
                If d=max then
                        If A[i]<so then
                        Begin
                                max:=d;
                                so:=A[i];
                        End;
        End;
        Write(g,so,' ',max);
        Close(f);
        Close(g);
End.

uses crt;
var d:text; n,i,max,min,ma,mi,j,dem,kt:longint; a,b:array[1..1000]of longint;
begin
clrscr;
    assign(d,'MAX.INP');reset(d);
       readln(d,n);
       for i:=1 to n do readln(d,a[i]);
    close(d);
    assign(d,'MAX.OUT');rewrite(d);
    min:=maxlongint;
       for i:=1 to n do
          begin
             dem:=0;
             for j:=1 to n do if a[j]=a[i] then inc(dem);
             b[i]:=dem;
             if dem>max then begin max:=dem; ma:=a[i]; end;
             if dem<min then begin min:=dem; mi:=a[i]; end;
          end;
       for i:=1 to n do if (a[i]<>ma)and(b[i]=max)
       then begin writeln(d,mi,' ',min); kt:=1; break end;
       if kt=0 then writeln(d,ma,' ',max);
    close(d);
end.