import           Data.Char
import qualified Data.ByteString.Char8 as B
import qualified Data.Vector.Unboxed   as U

readPair :: IO (Int, Int)
readPair = (\[x, y] -> (x, y)) . unfoldr (B.readInt . B.dropWhile isSpace) <$> B.getLine

main :: IO ()
main = do
  [n, h, w] <- map read . words <$> getLine
  abs <- U.replicateM n readPair
  print $ solve h w abs

solve :: Int -> Int -> U.Vector (Int, Int) -> Int
solve h w = U.length . U.filter ((>= w) . snd) . U.filter ((>= h) . fst)