import strutils, sets

proc input: string =
  while true:
    let tmp = readChar stdin
    if not isSpace tmp:
      safeAdd result, tmp
    elif tmp != '\r': break

let
  N = parseInt input()
var
  cnt = 0
  s = initSet[int]()

for i in 1 .. N:
  let
    a = parseInt input()
    tmp = a div 400

  if tmp < 8:
    incl s, tmp
  else:
    cnt += 1

write stdout, max(1, s.len)
echo " ", min(8, s.len + cnt)
