Сколько байт информации содержит сообщение объёмом 1,7 кб

var t: integer;

begin

  read(t);

  while t > 6 do

      t: =t-6;

  case t of

      0..2: write('green');

      3: write('yellow');

      4..6: write('red');

  end;

end.

n = 2^i

n = 2^5 = 32

ответ. в классе 32 ученика