Алтынай өз жобасын принтерде баспаға шығармақшы болды, бірақ хабарлама пайда болды. ​

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

begin
  var m:=ReadInteger('Количество строк в массиве:');
  var n:=ReadInteger('Количество столбцов в массиве:');
  Writeln('*** Исходный массив A[',m,',',n,'] ***');
  var a:=MatrRandom(m,n,-50,50);
  a.Println(4);
  for var i:=0 to m-1 do a[i,2]:=-7;
  Writeln(4*a.ColCount*'-');
  a.Println(4)
end.

Пример
Количество строк в массиве: 6
Количество столбцов в массиве: 9
*** Исходный массив A[6,9] ***
 -14  34 -25  27 -48 -15  50  26 -16
   8 -15 -49 -50 -44 -44  47  32  35
 -32  13  19 -16 -25  41  10  39  49
 -11 -35 -39 -16  26 -19  47 -11  14
 -22  42  -5 -39  28 -42   9 -41  18
   0 -22 -25 -15 -11   7  31  38  33

 -14  34  -7  27 -48 -15  50  26 -16
   8 -15  -7 -50 -44 -44  47  32  35
 -32  13  -7 -16 -25  41  10  39  49
 -11 -35  -7 -16  26 -19  47 -11  14
 -22  42  -7 -39  28 -42   9 -41  18
   0 -22  -7 -15 -11   7  31  38  33

Если число 49 записывается как 121, значит первый остаток от деления равен 1, то есть основанием системы счисления является число, кратное 48.

121 имеет 3 разряда, значит основание однозначно меньше 10 и больше 2. Подходят 3, 4, 6, 8.

Учитывая, что в числе 121 три разряда, значит число 48 делилось всего три раза. 
Число 8 не подойдет, т.к. 48/8=6, значит будет всего два деления.
Число 3 не подойдет, т.к. 48/3 = 16, 16/3=5 - то есть тут будет больше трёх знаков.
Число 4 не подойдет, т.к. 48/4=12, а 12 делится на 4 без остатка, но, судя по числу, во втором делении остаток должен быть равен 2.
Остаётся число 6. Проверим

49/6=8 |1
8/6 = 1 |2
1/6=0 |1

121(6)