($x,$y)=glob<>;
$n=<>;
@a=glob<>;

for$i(1..$n-1){
	if($a[$i-1]*$y>$a[$i]*$x){
		print "NO";
		exit;
	}
}
print "YES";