real::p,q,p1,p2 read *,p,q p1 = (1-p)*q p2 = p*(1-q)*(1-q) if (p1.lt.p2) then print '(a)',"YES" else print '(a)',"NO" end if end program