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