main :: IO ()
main = do
    [n, k] <- map read . words <$> getLine
    print $ solve n k

solve :: Int -> Int -> Int
solve n k
    | k == 0 || k > n = 0
    | odd n && k == n `div` 2 + 1 = n - 1
    | otherwise = n - 2