var n,i,d,dem:longint;
a,dau:array [00..1000] of longint;
begin
        readln(n);
        for i:=1 to n do
                begin
                read(a[i]);
                inc(dau[(a[i]+1) div 400 +1]);
                if a[i]>3199 then inc(d);
                end;
        for i:=1 to 8 do
                if dau[i]<>0 then inc(dem);
        if dem=0 then write(1)
        else
        write(dem,' ',dem+d);

end.
