
import           Control.Applicative
import           System.IO


readConvert :: IO (Int, Int)
readConvert = map read.words <$> getLine

main :: IO ()
main = do
    (x,y)  <- readConvert
    putStrLn (x + y `div` 2)
