module Main where
import           Data.List

polygon :: [Int] -> String
polygon (x:xs)
  | canDraw   = "Yes"
  | otherwise = "No"
  where
    canDraw = x < total
    total = sum xs

main :: IO()
main = interact $ solve . sortBy (flip compare) . map read . tail . words
