Для заданной целочисленной матрицы A(N,M) проверить, делится ли сумма её элементов на 3 и на 7, и вывести на печать соответствующий текст

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017 // Внимание! Если программа не работает, обновите версию! begin   var m:=ReadInteger('Количество строк в матрице:');   var n:=ReadInteger('Количество столбцов в матрице:');   Writeln('*** Исходная матрица [',m,',',n,'] ***');   var a:=MatrRandom(m,n,-99,99);   a.Println(4); Writeln(4*a.ColCount*'-');   if a.Rows.SelectMany(x->x).Sum mod 21=0 then     Writeln('Сумма элементов одновременно делится на 3 и на 7')   else     Writeln('Сумма элементов одновременно не делится на 3 и на 7') end. Примеры Количество строк в матрице: 4 Количество столбцов в матрице: 7 *** Исходная матрица [4,7] ***   73 -53  69 -94 -38  50  30   -9  63  54  28 -56  68  21  -97  18 -80  68  86 -27  -3   33 -30 -17   6 -69 -95 -81 ---------------------------- Сумма элементов одновременно не делится на 3 и на 7 Количество строк в матрице: 5 Количество столбцов в матрице: 4 *** Исходная матрица [5,4] ***  -53  14  50  52  -81  55  14 -89   99 -53  37  96   73  27  -8 -85    0  -8  46  50 ---------------- Сумма элементов одновременно не делится на 3 и на 7