var a,b,n,k:integer;
begin
readln(n,k);
a:=n div 2;
if k>a then b:=n-k
       else if (k=a) or (k=a+1) then b:=0
                                else b:=a-k;
writeln(b)
end.