import Control.Monad
import Data.List
import Data.Ord

main = do
  n<-readLn
  ab<-replicateM n $ (\[a,b]->(read a,read b)).words<$>getLine
  putStr $ solve ab

solve ab
  | go t ab' = "Yes"
  | otherwise = "No"
  where
  ab' = sortBy (flip$comparing snd) ab
  (_,t) = head ab'
  go t [(a,b)] = min t b >= a
  go t ((a,b):ab)
    | b <= t = go (b-a) ab
    | otherwise = go (t-a) ab
