program prob26
    implicit none
    integer :: a,b
    read(*,*) a,b
    if(a <= 5) then
        write(*,*) "0"
    else if( a<= 12) then
        write(*,*) b/2
    else
        write(*,*) b
    end if


    stop
contains
end program prob26