(defn ColorfulTransceivers [a b c d]
  (if (or (>= d (Math/abs (- c a)))
    (and (>= d (Math/abs (- b a))) 
      (>= d (Math/abs (- c b))))) 
  "Yes" 
  "No"))
(println (ColorfulTransceivers (int (read)) (int (read)) (int (read)) (int (read))))