var
        x,i,n,s:longint;
        a:array [0..10] of longint;
begin
readln(n);
for i:=1 to n do
        begin
        read(x);
        if x<400 then a[1]:=1 else
        if x<800 then a[2]:=1 else
        if x<1200 then a[3]:=1 else
        if x<1600 then a[4]:=1 else
        if x<2000 then a[5]:=1 else
        if x<2400 then a[6]:=1 else
        if x<2800 then a[7]:=1 else
        if x<3200 then a[8]:=1 else
        inc(a[9]);
        end;
for i:=1 to 8 do s:=s+a[i];
if a[9]<>0 then writeln(s,' ',s+a[9])
else writeln(s,' ',s);
end.