implicit none integer(8) A,B,C read(*,*) A,B C=(B/A) if (B/=C*A) then write(*,*) "NO" else write(*,*) C end if end