--{-# LANGUAGE OverloadedStrings #-}
--{-# LANGUAGE OverloadedLists   #-}
{-# LANGUAGE BangPatterns      #-} --引数に!
{-# LANGUAGE MultiWayIf        #-}
{-# LANGUAGE TupleSections     #-}

import Data.Bits
import Data.Foldable (foldlM,foldrM)
import Data.Maybe (fromJust)
import Data.List
--import Data.Matrix.Unboxed
import Data.Array  --変数衝突
import Data.Array.Unboxed
import Data.Array.MArray
import Data.Array.ST
import Data.Graph
--import Data.Vector as V　--変数衝突
import qualified Data.Vector.Unboxed as V
import Control.Monad
import Control.Monad.State
import Control.Monad.ST
import qualified Data.ByteString.Lazy.Char8 as B

solve :: Int -> [(Int,Int)] -> Int -> Bool
solve n [] t = True
solve n ((a,b):ls) t = if t+a > b then False else solve n ls (t+a)

main :: IO ()
main = do
  n <- readLn
  works' <- replicateM n $ do
    [a,b] <- map read.words <$> getLine :: IO [Int]
    return (a,b)
  let  works = sortOn snd works'
  putStrLn $ if solve n works 0 then "Yes" else "No"
