Что закодировано следующей последовательностью двоичных кодов: 00111001

Вроде как цифра 9 (девять).

//pascal abc.net v3.0 сборка 1111 var   ar: array[1..10] of integer;   i,k: integer; begin   randomize;   k: =0;   writeln('array: ');     for i: =1 to 10 do     begin;       ar[i]: =random(30);       write(ar[i]: 4);         if ar[i] mod 2=0 then k: =k+1;     end;   writeln;   write('res=',k); end.пример работы кода: array:   21   2   10   22   21   24   29   13   29   28res=5

var

a,min: integer;

begin

  readln(a);

  if a=0 then

    begin

      writeln('error');

      exit;

    end

      else  

        begin

          min: =a;

          repeat  

            if min> a then

              min: =a;

            readln(a);

          until a=0;

          writeln('min: ',min);

        end;

end.