main = map (read :: String -> Int) . words <$> getLine >>= \_x ->
  case _x of
      [a, b] | a >= 13   -> return b
             | a >= 6    -> return (b `div` 2)
             | otherwise -> return 0
    >>= print
