THONGKE PASCAL

var    a:array[1..100005] of longint;
    n,i:longint;
procedure nhap;
begin
    readln(n);
    for i:=1 to n do read(a[i]);
end;
procedure qs(l,h:longint);
var x,i,j,t:longint;
begin
    i:=l;j:=h;
    x:=a[(l+h) div 2];
    repeat
        while a[i] < x do inc(i);
        while a[j] > x do dec(j);
        if i<=j then
        begin
            t:=a[i];
            a[i]:=a[j];
            a[j]:=t;
            inc(i);
            dec(j);
        end;
    until i>j;
    if L<j then qs(L,j);
    if i<H then qs(i,H);
end;
procedure giai;
var    lap,khac,d:longint;
begin
    qs(1,n);
    lap:=1;
    khac:=1;
    d:=1;
    for i:=2 to n do
       begin
           if a[i]<>a[i-1] then
          begin
              inc(khac);
              d:=1;
          end
           else inc(d);
        if d>lap then lap:=d;
       end;
    writeln(khac);writeln(lap);
end;
 
begin
    assign(input, 'thongke.inp');reset(input);
    assign(output, 'thongke.out');rewrite(output);
    nhap;
    giai;
    close(input);close(output);
end.