program Multik;
var
intA,V,N,K:integer;
R:boolean;

begin
writeln('Vvedite N,K');
readln(N,K);
V:=0;
R:=False;
for intA:=K to N do begin
if V>=K then begin
R:=True;
break;
end;
V:=V+2;
K:=K+1;
end;
if R then writeln('1') else
writeln(0);

readln;
end.