main = do
    line <- getLine
    let (x : y : _) = map read . words $ line
    putStrLn . show $ solve x y

-- |
-- >>> solve 81 58
-- 110
-- >>> solve 4 54
-- 31

solve :: Int -> Int -> Int
solve x y = x + y `div` 2
