masuume h w n k = if result then "YES" else "NO"
    where
        s = h + w - 1
        result = s `mod` n == k `mod` n

main = do
    str <- getLine
    let [h, w, n, k] = map read $ words str :: [Int]
    putStrLn $ masuume h w n k