import Control.Applicative

main = do
 [a,b,c,d] <- map read.words <$> getLine :: IO [Int]
 putStrLn $ answer d [abs(a-b), abs(b-c), abs (a-c)]

answer d xs@[ab,bc,ca] = if all (<=d) xs || ca <= d then "Yes" else "No"