RAFT PASCAL

Var    n :LongInt;
      k :Integer;
  
function Divide(x :LongInt) :LongInt;
var    s:longint;
begin
    if ((x-k) mod 2=0) and (x>k) then
    begin
          s:=Divide((x-k) div 2)+Divide((x+k) div 2);
          exit(s)
    else
          exit(1);
end;

Begin
      Assign(input,'raft.inp'); Reset(input);
      Assign(output,'raft.out'); Rewrite(output);
      ReadLn(n,k); 
      Write(Divide(n));
      Close(input); Close(output);
End.