Белка увлеклась всякими электронными приборами и решила сделать прибор, который бы запоминал, сколько в каждом мешке у неё орехов. Мешков у неё 30, каждый она кодирует номером от 1 до 30, и в каждом может быть любое количество орехов от 0 до 1000. Устройство должно запоминать номер мешка и число орехов в нём. Какого минимального объема потребуется чип памяти для создания такого устройства, если каждое значение номера мешка и числа орехов в нём кодируется одним и тем же минимальным количеством бит? ответ напишите в виде целого числа бит.

//PascalABC.NET 3.1 сборка 1200
begin
  var n := ReadInteger('n=');
  var a := MatrixRandom(n, n, 0, 10);
  println(a);
 
  var d := new System.Collections.Generic.Dictionary<integer, integer>();
  for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
    for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
    begin
      if d.ContainsKey(a[i, j]) then
        d[a[i, j]] += 1
      else
        d.Add(a[i, j], 1);
    end;
    
  var p := d.OrderByDescending(x -> x.Value).First();
  println('Чаще всего встречается ' + p.Key + ', ' + p.Value + ' раз');
end.