Вбуфете остались только пакетики зелёного и чёрного чая. известно, что среди них 18 пакетиков зелёного чая. сообщение о том, что очередной носитель закажет стакан черного чая, несёт два бита информации. сколько всего стаканов чая может быть продано?

Известно что среди них в 17 пакетиков зелёного чая сообщение о том что учить на носитель закажем стакан чёрного чая и вся твоя беда информацию сбросила с тобой может быть если ты там уже посмотрю

program xxx;

  var i, j, k, min : integer;

              a: array[1..10, 1..20] of integer;

              b: array[1..10] of integer;

begin

    for i: =1 to 10 do

        for j: =1 to 20 do

              readln(a[i,j]);

    for i: =1 to 10 do

      begin

        b[i]: =0;

        for j: =1 to 20 do

            b[i]: =b[i]+a[i,j];

      end;

    min: =b[1]; k: =1;

    for i: =2 to 10 do

        if b[i]< min then begin max: =b[i]; k: =i end;

    writeln('наименьшая сумма элементов =', min);

    writeln('она находится в строке -', k);

    readln

end.

  var a,b,c,d: integer;

begin

writeln ('vvedite a');

  read(a);

writeln ('vvedite b');

  read(b);

writeln ('vvedite c');

  read(c);

writeln ('vvedite d');

  read(d);

if (a> b) and (a> c) and (a> d)  then writeln('samoe bolshoe chislo - a')

  else writeln('a ne samoe bolshoe');

end.