//fpc 3.0.0

​

program BITcustom;

const fi= 'BITcustom.INP';

         fo= 'BITcustom.OUT';

         max= 300;

var n: byte;

//==========================================================//

procedure BITcustom; {xay dung chuong trinh sinh cac xau nhi phan co do dai n}

Var a: array[1..max] of byte;

      i,j: byte;

  Begin

    For i:=1 to n do a[i]:=0; {xay dung cau hinh co so}

    Repeat   {tu cau hinh co so sinh cau hinh tiep theo den khi dat cau hinh cuoi cung}

      j:=0;

      While (j<=2) and (i<=n) do if a[i]<a[i+1] then inc(j); {check xem có thoa yeu cau khong}

      If j=2 then for i:=1 to n do write(a[i]);

      while (i>0) and (a[i] =1) do Dec(i);

      if i>0 then

        begin

          a[i] :=1;

          for j:=(i+1) to n do a[j]:=0;  {gan a[i] =1, tat ca so dung sau ve gia tri 0}

        end;

    Until i=0;

  End;

//==========================================================//

BEGIN

  assign(input,fi); reset(input);

  assign(output,fo); rewrite(output);

  read(n);

  BITcustom;

  close(input); close(output);

END.

​