{-# LANGUAGE ScopedTypeVariables, LambdaCase #-}

import qualified Data.List as List
import qualified Data.Set as Set

main :: IO ()
main = do
    [a, b] :: [Int] <- map read . words <$> getContents
    print $ (a + b) `mod` 24