module Main where
import qualified Control.Monad as C
import qualified Data.Char as C
import qualified Data.List as L
import qualified Data.Map as M
import qualified Data.Array as A

int = read :: String -> Int
getWord :: IO String
getWord = do
  c <- getChar
  if C.isSpace c
  then
    return []
  else do
    ws <- getWord
    return (c:ws)
getInt = fmap int getWord
replace pred a = map (\x -> if pred x then a else x)

main = interact $ printer . solver . parser
parser = map ((\[a,b]->(a,b)) . map int . words) . tail . lines
printer = id

solver ps = if result then "Yes\n" else "No\n"
  where
    rps = L.sort $ map (\(a,b)->(b,a)) ps
    as = map snd rps
    as2 = scanl1 (+) as
    result = and $ zipWith (\c (b,a)-> c <= b) as2 rps 

