import Control.Applicative

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

    putStrLn $ show $ if x <= (div n 2) then x - 1 else n - x