Для заданной целочисленной матрицы 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