Определите, сколько битов информации несет сообщение о том, что на светофоре горит зеленый свет.

Битам

Var a: array [0..9] of integer;     i, j: integer; begin       write('     ');       for i : = 0 to 9 do       begin           a[i] : = random(51) - 25;           writeln('[', i, '] => ', a[i]);       end;             for i : = 0 to 9 do       if (a[i] < 0) then          dec(j)       else           if (a[i] > 0) then             inc(j);       if (j > 0) then writeln('+ > -');       if (j = 0) then writeln('+ = -');       if (j < 0) then writeln('+ < -'); end.

Procedure swap(var a, b: real); var t: real; begin       t : = a;       a : = b;       b : = t; end; var a, b, c: real; begin       readln(a, b, c);       if (a > b) then swap(a, b);       if (b > c) then swap(b, c);       if (a > b) then swap(a, b);       writeln(a, ' ', b, ' ', c); end.===========================без процедур: var a, b, c, t: integer; begin      readln(a, b, c);       if (a > b) then      begin          t : = a;           a : = b;           b : = t;       end;       if (b > c) then      begin          t : = b;           b : = c;           c : = t;       end;       if (a > b) then      begin          t : = a;           a : = b;           b : = t;       end;       writeln(a, ' ', b, ' ', c); end.