($N,$K)=glob<>; print$K<1|$K>$N?0:$N-1-(2*$K-1!=$N)