program name
    implicit none
    integer(4):: a,b
    read*, a,b
    if(a >= 13) then
        print*, b
    else if (a >= 6) then
        print*, b/2
    else
        print*, 0
    end if
end program name