Каждый ученик получает электронный пропуск, на котором зафиксированы следующие данные о владельце: идентификатор, состоящий из 12 символов, где каждый взят из 10 допустимых букв латинского алфавита или одной из цифр от 1 до 9;
класс — целое число от 1 до 11, записанное в виде двоичного кода, занимает минимальное количество байт;
дополнительные сведения.

Все символы кодируются одинаково и минимально возможным количеством бит (посимвольное кодирование). Пропуск содержит 14 байт информации.
Узнай объём памяти, нужный для хранения дополнительных сведений о владельце пропуска.
В ответе напиши число — количество байт.

#генерируем список из 2000 элементов
my_list = [(lambda x:(x*296+2410)%4096)(i) for i in range(2000)]

# начальное значение для временного минимума
min1_value = min2_value = 10000
min1_number = min2_number = 0

while my_list:
    x = my_list.pop()
    if x < min1_value:
        min2_value = min1_value
        min2_number = min1_number
        min1_value = x
        min1_number = 1
    elif x == min1_value:
        min1_number += 1
    elif x < min2_value:
        min2_value = x
        min2_number = 1
    elif x == min2_value:
        min2_number += 1
        
print(min2_number)

//Pascal
  var a,b, I, maxsumm, max : integer;
 
  function summdel(x:integer):integer; //результат - сумма делителей х
  var k,sum:integer;
  begin
    sum:=0;
    for k := 1 to x div 2 + 1 do
      if x mod k = 0 then sum:= sum+k;
    summdel:=sum;
  end;
 
  begin
   writeln('Введите границы a,b ');
   readln(a,b);
    maxsumm := 1;
    max := 1;
    for i := a to b do
     begin
        if summdel(i) > maxsumm then
          begin maxsumm:= summdel(i);
            max := i;
          end;
     end;
     writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max)
  end.