import Control.Monad

getInt :: IO Int
getInt = read <$> getLine


getInts :: IO [Int]
getInts = map read . words <$> getLine


getLines :: Int -> IO [String]
getLines x = replicateM x getLine


getIntLines :: Int -> IO [Int]
getIntLines x = map read <$> getLines x


getIntsLines :: Int -> IO [[Int]]
getIntsLines x = map (map read . words) <$> getLines x


main :: IO ()
main = do
  [n, h, w] <- getInts
  abs <- getIntsLines n

  print . length . filter (\[x, y] -> x >= h && y >= w) $ abs
