import Data.List
import Data.Bool

readInt :: String -> Int
readInt = read

main = do
    s <- map readInt.words<$>getContents
    putStrLn $ bool "No" "Yes" $ solve s

solve :: [Int] -> Bool
solve (n:s) = (maximum s)*2 < (sum s)