Какой алгоритм для этого узора в чертежнике хелп

895 =37F

895/16=55 остаток   15=F

55/16=3 остаток   7

3/16=0 остаток   3

1051 = 10000011011

1051/2=525 остаток   1

525/2=262 остаток   1

262/2=131 остаток   0

131/2=65 остаток   1

65/2=32 остаток   1

32/2=16 остаток   0

16/2=8 остаток   0

8/2=4 остаток   0

4/2=2 остаток   0

2/2=1 остаток   0

1/2=0 остаток   1

258 =102

258/16=16 остаток   2

16/16=1 остаток   0

1/16=0 остаток   1

4441 =10531

4441/8=555 остаток   1

555/8=69 остаток   3

69/8=8 остаток   5

8/8=1 остаток   0

1/8=0 остаток   1

4F =1001111

79/2=39 остаток   1

39/2=19 остаток   1

19/2=9 остаток   1

9/2=4 остаток   1

4/2=2 остаток   0

2/2=1 остаток   0

1/2=0 остаток   1

716 =1CE

462/16=28 остаток   14=E

28/16=1 остаток   12=C

1/16=0 остаток   1

Pascal

var

 s : string = 'Вчера лиса Алиса пришла к коту Базилио и поинтересовалась его здоровьем.';

 i : integer;

 s1, sR : string;

begin

 s:=s+' ';

 i :=1;

 sR :='';

 s1:='';

 while i <= length(s) do begin

   if (s[i] = ' ') then begin

      if s1[1] <> UpperCase(s1[1]) then

          sR := sr + s1 + ' ';

      s1:=''

   end

   else

     s1:=s1 + s[i];

   inc(i);

 end;

 delete(sR, length(sR), 1);

 print(sR);

end.

А вот на PascalABC.Net.  заметно короче будет

begin

 var s := 'Вчера лиса Алиса пришла к коту Базилио и поинтересовалась его здоровьем.';

 var a := s.ToWords.Where(v -> (v.First <> v.First.ToUpper)).JoinIntoString();

 println(a);

end.