С ПОДРОБНЫМ решением ОЧЕНЬ Каждый символ алфавита занимает объем в виде 6-тизначного двоичного кода. Определите
максимальное количество (мощность) символов в этом алфавите. Определите объем сообщения,
набранного с этого алфавита, если в сообщении 50 символов.

// PascalABC.NET 3.2, сборка 1483 от 14.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Write('Количество строк и столбцов в массиве:');
  var (n,m):=ReadInteger2;
  Writeln('*** Исходный массив [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  var t:=a.ElementsWithIndexes.Where(x->x[0] mod 5=0).Take(1);
  a.SwapRows((t.First)[1],n-1);
  Writeln('*** Результирующий массив ***'); a.Println(4)
end.

Пример
Количество строк и столбцов в массиве:4 5
*** Исходный массив [4,5] ***
 -32 -12  94 -28 -42
 -15  29  80  28 -69
  -5  68  63 -12  22
  59  84  65  14 -86

*** Результирующий массив ***
 -32 -12  94 -28 -42
  59  84  65  14 -86
  -5  68  63 -12  22
 -15  29  80  28 -69

// PascalABC.NET 3.2, сборка 1483 от 14.06.2017
// Внимание! Если программа не работает, обновите версию!

function ReadComplex:Complex;
begin
  var (r,i):=ReadReal2;
  Result:=cplx(r,i)
end;

procedure WriteComplex(x:Complex);
begin
  if x.Imaginary=0 then Write(x.Real)
  else begin
    if x.Real<>0 then Write(x.Real);
    if (x.Imaginary>0) and (x.Real<>0) then Write('+');
    Write(x.Imaginary,'i')
    end
end;

begin
  var n:=ReadInteger('N =');
  Writeln('Введите ',n,' комплексных чисел');
  Writeln('Формат ввода числа: действ.часть, пробел, мнимая часть');
  var s:=cplx(0.0,0.0);
  loop n do s+=ReadComplex;
  Write('S='); WriteComplex(s)
end.

Пример
N = 5
Введите 5 комплексных чисел
Формат ввода числа: действ.часть, пробел, мнимая часть
2.3 -3.12
-1.7 8
6.14 0.2
-2.4 -3.2
0 1.6
S=4.34+3.48i