Вам нужно закодировать методом Хаффмана сообщение АБАГБББАВАБВ. В качестве ответа предоставьте длины кодовых слов для каждой буквы.
Например, если кодовое слово для буквы А=01100, то в ответе нужно указать 5.

напиши само ,я

var n,z: longint;

begin

  read(n);

  z: =abs(n);

  z: =z-2;

  writeln(z);

end.

var  a, s: integer; // целочисленный тип данныхbeginwriteln('введите число: ');   readln(a); // вводим число (можно больше трех знаков)  while a < > 0 do  // пока остались цифры в числе   begin      s : = s + (a mod 10); // отбираем последнюю цифру числа и прибавляем к сумме      a : = a div 10; // стираем последнюю цифру числа  end;   writeln('сумма цифр = ', s) // выводим результатend.

добавить ввод номера столбца.

строку if (j = 2) and (a[i, j] > 10) then заменить

на if (j = m) and (a[i, j] > 10) then  где m- введенный номер столбца.