Module M
    Sub Main()
    Dim l = Console.ReadLine().Split().Select(Function(x) Integer.Parse(x)).ToList()
    Dim a = System.Math.Abs(l(1)-l(0)) <= l(3) And System.Math.Abs(l(2)-l(1)) <= l(3)
    Dim b = System.Math.Abs(l(2)-l(0)) <= l(3)
    If a Or b = True Then
        Console.WriteLine("Yes")
    Else
        Console.WriteLine("No")
    End If
    End Sub
End Module