program sample
	implicit none
    integer :: x,y
    
    read(*,*) x,y
    
    if (x>12) then
    	write(*,*) y
    else if (x<6) then
    	write(*,*) 0
    else
    	write(*,*) y/2
    end if

    stop
end program sample