// PascalABC.NET 3.1, сборка 1204 от 24.03.2016 const n=100; // заменить на 10000 var a:array[1..n] of byte; i:byte; j:integer; begin // инициализация, для for j:=1 to n do a[j]:=Random(256); // собственно программа for i:=0 to 255 do for j:=1 to n do if a[j]=i then Write(i,' '); end.
Может из десятичной в двоичную? Так правильнее будет
65 - 1000001
99 - 1100011
157 - 10011101