Baum Sweet

Function bloc_impair (ch:String): Boolean;
Var
i,r:integer;
test:Boolean;
Begin
    i:=0;
    test:=false;
  Repeat
        r:=0;
        i:=i+1;
        while (ch[i]='0') and (ch[i+1]='0') Do
            begin
                r:=r+1;
                i:=i+1;
            end;
        test:=r mod 2=0;
    Until (i=Length(ch)) or (test=true);
    bloc_impair:=test;
End;
Procedure suite_B_S (Var p:Integer);
Var
  i: Integer;
    ch:string;
Begin
  Writeln ('Saisir P: ');
  Readln (p);
  For i:=1 To p Do
    Begin
      ch := convert10_2(i);
      If (bloc_impair(ch)) Then
        Writeln ('B ',i,'= 0')
      Else
        Writeln ('B ',i,'= 1');
    End;
End;