import Data.List
import Control.Monad

main :: IO ()
main = do
  n <- readLn :: IO Int
  abz <- sortBy (\(x,y) (z,u) -> case compare u y of
                                   LT -> LT
                                   GT -> GT
                                   EQ -> compare z x
                ) <$> (replicateM n $ (\[x,y] -> (x,y)) . map read . words <$> getLine) :: IO [(Int,Int)]

  -- print $ abz

  putStrLn $ solve abz
  -- print $ solve' abz

solve :: [(Int,Int)] -> String
solve [] = "Yes"
solve [(x,y)] = if y - x >= 0 then "Yes" else "No"
solve ((x,y):(z,u):xyz) = if y - x >= u
                          then solve ((z,u):xyz)
                          else solve ((z,y-x):xyz)

solve' :: [(Int,Int)] -> [(Int,Int)]
solve' [] = []
solve' [(x,y)] = [(x,y)]
solve' ((x,y):(z,u):xyz) = if y - x >= u
                           then (x,y) : solve' ((z,u):xyz)
                           else (x,y) : solve' ((z,y-x):xyz)
