let solve h w n k = h * w mod n = k mod n

let () =
  let h, w, n, k = read_line () |>
                   Str.split (Str.regexp_string " ") |>
                   List.map int_of_string |>
                   fun lst -> (List.nth lst 0, List.nth lst 1,
                               List.nth lst 2, List.nth lst 3)
  in
  solve h w n k |>
  (function | true -> "YES" | false -> "NO") |>
  print_endline