import Control.Applicative ((<$>)) -- m+1/3 main :: IO () main = do [m,n] <- map read . words <$> getLine :: IO [Double] print $ m+n/3