Нужны ответы к 1 и 2 варианту. скажите

Const
  n = 7;

var
  a: array[1..n, 1..n] of integer;
  i, j, sum, min, imin: integer;

begin
  Randomize;
  for i := 1 to n do
    for j := 1 to n do
      a[i, j] := random(100) - 50;
  writeln('Исходный массив');
  for i := 1 to n do
  begin
    for j := 1 to n do write(a[i, j]:4);
    writeln
  end;
  sum := 0;
  min := 100; //у нас в массиве числа на (-50:50)
  for i := 1 to n - 1 do
    for j := 1 to n - i do
      sum := sum + a[i, j];
  for i := 1 to n do
    if min > a[i, i] then begin
      min := a[i, i];
      imin := i
    end;
  writeln('Сумма элементов левее побочной диагонали=', sum);
  writeln('Минимальный элемент на главной диагонали=', min, ', его координаты (', imin, ',', imin, ')')
end.

Контрольный пример:

Исходный массив
  14  39  -7 -26  10 -33   9
  48 -21 -19   6   2  24 -16
  27 -41 -26  -7  16 -27 -34
  42  32 -12 -37  -9  20 -26
 -35 -20 -34  40  -3   5   1
  23  31 -11  -9  26 -28  25
  34  26 -30  11  43  19 -26
Сумма элементов левее побочной диагонали=-4
Минимальный элемент на главной диагонали=-37, его координаты (4,4)

1) 30 букв плюс 10 цифр в сумме дают 40 символов. Значит, для их кодировки нам потребуются цифры от 0 до 39. Переведем 39 в двоичную систему счисления, чтобы посмотреть, сколько битов (разрядов) оно займет.
39(10)=100111(2) ⇒ требуется 6 битов.
2) В номере сертификата 5 символов, значит они займут 5*6=30 битов. По условию номер сертификата кодируется целым количеством байтов, а в байте 8 бит. Делим 30 на 8 и получаем 3.75. Округляем в большую сторону. Номер сертификата занимает 4 байта.
3) 80 номеров займут 4*80=320 байт. ответ 2).