readline()
a=0
b=0
T=zeros(Int,114514)
for x=map(x->parse(Int,x),split(readline()))
  if x<3200
    x=div(x,400)
    if T[x]==0
      a+=1
    end
    T[x]=1
  else
    b+=1
  end
end
println("$(a==0?1:a) $(a+b)")