Проводят лотерею при которой внимают вынимают из барабана один мяч из 32 какое минимальное количество бит потребуется чтобы закодировать сообщения о результатах лотереи?

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходный массив ***');   var a: =matrrandom(2,4,-10,30);   a.println(4); writeln(4*a.colcount*'-');   writeln('п = ',a.elementsbyrow.where(t-> t.between(1,19))           .aggregate(1,(x,y)-> x*y)) end. пример *** исходный массив ***   24  16  22  12     2    5    1    8 п = 15360

Const
  n=10;
var
  xy:array[1..2*n] of real;
  Lmax,L:real;
  i,imax:integer;
begin
  Randomize;
  Writeln('Координаты точек');
  Lmax:=0;
  for i:=1 to n do
  begin
    xy[2*i-1]:=101*Random-50; { случайное число на [-50..50] }
    Write(i:2,xy[2*i-1]:8:3);
    xy[2*i]:=101*Random-50;
    Writeln(xy[2*i]:8:3);
    L:=sqr(xy[2*i-1])+sqr(xy[2*i]);
    if Lmax<L then begin Lmax:=L; imax:=i end
  end;
  Writeln('Наиболее удалена от начала координат');
  Writeln('точка A[',imax,'] (',xy[2*imax-1]:0:3,',',xy[2*imax]:0:3,'),');
  Writeln('расстояние составляет ',sqrt(Lmax):0:3)
end.

Тестовое решение:
Координаты точек
 1  -7.758 -12.799
 2  14.569  -5.722
 3 -20.827   2.768
 4  16.387  35.180
 5  43.135 -17.903
 6  42.006  11.257
 7  40.026  -4.777
 8 -32.236  33.900
 9 -13.453  45.271
10   8.171   7.245
Наиболее удалена от начала координат
точка A[9] (-13.453,45.271),
расстояние составляет 47.227