import Control.Monad
import Data.List

main :: IO ()
main = do
  n <- readLn
  abn <- sortBy (\[a,b] [c,d] -> (b `compare` d) `mappend` (a `compare` c)) . map (map (read :: String -> Int) . words) <$> getNLine_ n
  if ans 0 abn then putStrLn "Yes" else putStrLn "No"

ans :: Int -> [[Int]] -> Bool
ans _ [] = True
ans n ([a,b]:abn) = if n+a > b then False else ans (n+a) abn

getNLine_ :: Int -> IO [String]
getNLine_ n = replicateM n getLine
