import Data.List

isfinishable [] _ = True
isfinishable (x:xs) s
  | x !! 1 + s <= x !! 0 = isfinishable xs (x !! 1 + s)
  | otherwise = False

main = do
  getLine
  tasks <- sort . map (reverse . map read . words) . lines <$> getContents
  if isfinishable tasks 0 then putStrLn "Yes" else putStrLn "No"