#--------------------------------------------------
import strutils, sequtils, math, algorithm, tables, sets, lists, intsets, critbits, future
let read* = iterator: string {.closure.} =
    while true: (for s in stdin.readLine.split: yield s)
proc scan(): int = read().parseInt
#--------------------------------------------------
var n = scan()
var a = newSeqWith(n, scan())

var ans = initSet[int]()
var num = 0
for i in a:
    if i div 400 < 3200 div 400:
        ans.incl(i div 400)
    else:
        num += 1

echo ans.len,' ',ans.len + num
