Var N,i,Min:Integer;
    A:Array[0..105] Of Integer;
    C:Array[1..9] Of Integer;
Begin
        //Assign(Input,'A.INP'); Reset(Input);
       // Assign(Output,'A.OUT'); Rewrite(Output);
        Readln(N);
        Fillchar(C,SizeOf(C),0);
        For i:=1 to N Do
                Begin
                Read(A[i]);
                Case A[i] Of
                1..399: Inc(C[1]);
                400..799: Inc(C[2]);
                800..1199: Inc(C[3]);
                1200..1599: Inc(C[4]);
                1600..1999: Inc(C[5]);
                2000..2399: Inc(C[6]);
                2400..2799: Inc(C[7]);
                2800..3199: Inc(C[8]);
                3200..4800: Inc(C[9]);
                End;
                End;
        Min:=0;
        For i:=1 to 8 Do If C[i]<>0 Then Inc(Min);
        If Min=Min+C[9] Then Writeln(1,' ',Min) Else Writeln(Min,' ',Min+C[9]);
        //Close(Input);
        //Close(Output);
End.
