let f () =
    let m = (stdin.ReadLine ()).Split ' ' |> Array.map int
    let n = stdin.ReadLine () |> int
    let a = (stdin.ReadLine ()).Split ' ' |> Array.map int
    seq { for i in 1..n-1 -> a.[i-1]*m.[1]>a.[i]*m.[0] }
    |> Seq.tryFind (fun b -> true)
    |> function
        | Some (true) -> "NO"
        | Some (false) -> "YES"
f () |> printfn "%s"