main :: IO ()
main = do
  [a, b, c, d] <- map read . words <$> getLine :: IO [Int]
  putStrLn $ if (abs (a - c) < d) || (abs (a - b) < d && abs (c - b) < d)
             then "Yes"
             else "No"
