import Data.Bits
import Data.Foldable (foldlM,foldrM)
import Data.Maybe (fromJust)
import Data.List
import qualified Data.Vector.Unboxed.Mutable as V
import Control.Monad
import qualified Data.ByteString.Lazy.Char8 as B
import Debug.Trace



main :: IO ()
main = do
  [a,b] <- map read.words <$> getLine :: IO [Int]
  if a >= 13 then print $ b
    else 6 <= a && a <= 12 then print $ b `div` 2
      else print 0
