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

Var a,b,s,c,d:real;
begin
write('a, b: ');
readln(a,b);
write('c: ');
readln(c);
s:=2*(a+b);
writeln('Количество сетки: ',s:5:1,' м');
d:=a*b*c;
writeln('Количество минеральных удобрений: ',d:5:1,' кг');
end.

Пример:
a, b: 24 50
c: 2.5
Количество сетки: 148.0 м
Количество минеральных удобрений: 3000.0 кг

Или так (без ввода данных):
var a,b,s,c,d:real;
begin
a:=24;
b:=50;
c:=2.5;
s:=2*(a+b);
writeln('Количество сетки: ',s:5:1,' м');
d:=a*b*c;
writeln('Количество минеральных удобрений: ',d:5:1,' кг');
end.

Результат:
Количество сетки: 148.0 м
Количество минеральных удобрений: 3000.0 кг

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

begin
  Writeln('*** Исходный массив 12x12 ***');
  var a:=MatrRandom(12,12,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('Строка, содержащая максимальный элемент');
  a.Row(a.ElementsWithIndexes.Select(e->(e[0],e[2]))
      .MaxBy(e->e[1])[0]).Println;
  Writeln('*** Итоговый массив 12x12 ***');
  foreach var i in Range(0,11,2) do
    a.SetRow(i,(a.Row(i).Sorted.ToArray));
   a.Println(4)
end.

Пример
*** Исходный массив 12x12 ***
  88 -26 -91 -74 -60  21  71  40  70  -1 -72  31
 -58 -66  49  -5 -22  67 -22 -78  46 -95 -82  25
   0  88 -51 -32 -52  22  70 -53  35  88 -14  37
 -13 -85 -97  12 -47  67  94 -62 -11 -27 -59 -34
  98  81  -9 -30  57  26 -74  84 -43 -16  26 -48
 -28   4  -7 -51  28  81  95 -46  47 -88 -92 -36
  65  66  68  78 -89  80 -64 -73  47  82 -31 -33
 -69   0 -11 -90  62   2 -19 -96 -12  51 -60  49
 -25  46   9   8 -23  87  18  86  73 -72   5  90
  58 -52  74 -24 -52  -1   4 -11 -65 -74 -82 -72
  -8  86  -8 -54  31 -95  75 -86  26 -80   3 -36
 -29  27  50  60 -36 -18  -6 -97  95  -2 -48  14

Строка, содержащая максимальный элемент
98 81 -9 -30 57 26 -74 84 -43 -16 26 -48
*** Итоговый массив 12x12 ***
 -91 -74 -72 -60 -26  -1  21  31  40  70  71  88
 -58 -66  49  -5 -22  67 -22 -78  46 -95 -82  25
 -53 -52 -51 -32 -14   0  22  35  37  70  88  88
 -13 -85 -97  12 -47  67  94 -62 -11 -27 -59 -34
 -74 -48 -43 -30 -16  -9  26  26  57  81  84  98
 -28   4  -7 -51  28  81  95 -46  47 -88 -92 -36
 -89 -73 -64 -33 -31  47  65  66  68  78  80  82
 -69   0 -11 -90  62   2 -19 -96 -12  51 -60  49
 -72 -25 -23   5   8   9  18  46  73  86  87  90
  58 -52  74 -24 -52  -1   4 -11 -65 -74 -82 -72
 -95 -86 -80 -54 -36  -8  -8   3  26  31  75  86
 -29  27  50  60 -36 -18  -6 -97  95  -2 -48  14