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