import           Control.Applicative            ( )

main :: IO ()
main = do
    [a, b] <- map (read :: String -> Int) . words <$> getLine
    print $ cost a b

cost :: Int -> Int -> Int
cost a b | a >= 13   = b
         | a >= 6    = b `div` 2
         | otherwise = 0
