var n,x,demp,dem,i:integer;a:array[1..8] of boolean;
{procedure       mo;
begin
        assign(input,'test.inp');reset(input);
        assign(output,'test.out');rewrite(output);
end;
procedure       dong;
begin
        close(input);close(output);
end;}
procedure       nhap;
begin
        readln(n);
        for i:=1 to n do
                begin
                read(x);
                case x of
                        1..399: if A[1]=true then
                                begin
                                A[1]:=false;
                                inc(dem);
                                end;
                        400..799:if A[2]=true then
                                begin
                                A[2]:=false;
                                inc(dem);
                                end;
                        800..1199:if A[3]=true then
                                begin
                                A[3]:=false;
                                inc(dem);
                                end;
                        1200..1599:if A[4]=true then
                                begin
                                A[4]:=false;
                                inc(dem);
                                end;
                        1600..1999:if A[5]=true then
                                begin
                                A[5]:=false;
                                inc(dem);
                                end;
                        2000..2399:if A[6]=true then
                                begin
                                A[6]:=false;
                                inc(dem);
                                end;
                        2400..2799:if A[7]=true then
                                begin
                                A[7]:=false;
                                inc(dem);
                                end;
                        2800..3199:if A[8]=true then
                                begin
                                A[8]:=false;
                                inc(dem);
                                end;
                        3200..4800:inc(demp);
                end;
                end;
end;
procedure       xuli;
begin
        fillchar(a,sizeof(A),true);
        nhap;
        if dem=0 then write(1,' ') else write(dem,' ');
        if demp<=(8-dem) then write(demp+dem) else write(8);
end;
begin
        //mo;
        xuli;
        //dong;
end.
