main :: IO ()
main = do
    [a, b] <- map read . words <$> getLine
    let c  = a + 1 - b
        ds = if c <= 0 then ["YES", show $ abs c] else ["NO", show c]
    putStr $ unlines ds