import Control.Monad
import Data.List

main = do
  li <- getLine
  let n = read li
  bas <- forM [1..n] (\_ -> do
    li <- getLine
    let [a,b] = map read $ words li
    return (b,a)
    )
  let ans = compute n bas
  putStrLn $ if ans then "Yes" else "No"

-- 貪欲に締め切り順にこなして、間に合えばそれでいい。
compute :: Int -> [(Int,Int)] -> Bool
compute _ bas = loop 0 $ sort bas

loop :: Int -> [(Int,Int)] -> Bool
loop _ [] = True
loop c ((b,a):bas) = let d = c+a in d <= b && loop d bas
