ANTICHAT — форум по информационной безопасности, OSINT и технологиям

var
  n, k, volk: integer;
  ok: boolean;
begin
  readln(n, k);
  d:=0;
  volk:=0;
  ok:=true;
  while (ok) and (k<n) do
    begin
      inc(k);
      inc(volk, 2);
      if k <= volk then ok:=false;
    end;
    if ok then write('0') else write('1');
    readln;
end.