import Control.Applicative
import Data.List
import Control.Monad
strToInt s = (read :: String -> Int) s

main :: IO ()
main = do
    -- スペース区切り整数の入力
    [a, b] <- map read . words <$> getLine

    -- 出力
    putStrLn $ show $ if odd (a + b) then (a + b + 1)/ 2 else (a + b) / 2
