import Control.Applicative ((<$>))

main :: IO ()
main = solve <$> map read <$> words <$> getLine >>= print

solve :: [Int] -> Int
solve [a, b] = nb - na
  where na = (2 * a + b - 1) `div` 3
        nb = (2 * b + a) `div` 3