masuume h w n k = if result then "Yes" else "No"
    where
        result = k == (h * w) `mod` n

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