uses crt, math;
var n, i, res, j, tmp, count, ans: longint;
    a: array[1..1000] of longint;
begin
clrscr;
    readln(n);
    for i:=1 to n do read(a[i]);

    for i:=1 to n - 1 do
        for j:=i + 1 to n do
            if a[i] > a[j] then 
                begin
                    tmp:=a[i];a[i]:=a[j];a[j]:=tmp;
                end;

    i:=1;
    While i <= n do
        Begin
            count:=1;
            While a[i] = a[i + 1] do
                begin
                    inc(count);
                    ans:=a[i];
                    inc(i);
                end;
            inc(i);
            res:=max(res, count);
        End;

    writeln(ans);
    writeln(res);
readln; readln;
end.