import Control.Applicative ((<$>), (<*>))
import Control.Monad
import Data.List

main :: IO ()
main = do
  [n, a, b] <- getl $ wrds toInt
  solve a b <$> replicateM n (getl toInt) >>= print

solve :: Int -> Int -> [Int] -> Int
solve a b = length . filter (\x -> x < a || x >= b)

toInt :: String -> Int
toInt = read

wrds :: (String -> a) -> String -> [a]
wrds f = map f . words

getl :: (String -> a) -> IO a
getl f = f <$> getLine
