import Control.Monad (replicateM)

main :: IO ()
main = do
    [n, a, b] <- getSeq
    ts        <- fmap read <$> replicateM n getLine
    print $ solve a b ts

solve :: Int -> Int -> [Int] -> Int
solve a b ts = length [()| t <- ts, t < a || b <= t]

getSeq  = map read . words <$> getLine

