
var d:array[1..100] of boolean;
        a:array[1..100000] of longint;
        n,i,kq:longint;
begin
{assign(input,fi);
reset(input);
assign(output,fo);
rewrite(output);}
        readln(n);
        for i:=1 to n do read(a[i]);
        for i:=1 to n do d[a[i] div 400+1]:=true;
        kq:=0;
        for i:=1 to 8 do
                if d[i] then inc(kq);
        write(kq,' ');
        for i:=1 to n do
                if a[i] >=3200 then inc(kq);
        writeln(kq);

end.
