с Информатическими задачами">

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

procedure L(s:sequence of integer);
begin
  s.Print(',');
  Writeln(': S=',s.Sum,', П=',s.Aggregate(BigInteger(1),(p,q)->p*q))
end;

begin
  var n:=ReadInteger('n=');
  L(Range(1,2*n-1,2));
  L(Range(2,2*n,2));
  L(Range(3,3*n,3));
  L(Range(4,4*n,4))
end.

Пример
n= 10
1,3,5,7,9,11,13,15,17,19: S=100, П=654729075
2,4,6,8,10,12,14,16,18,20: S=110, П=3715891200
3,6,9,12,15,18,21,24,27,30: S=165, П=214277011200
4,8,12,16,20,24,28,32,36,40: S=220, П=3805072588800

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

begin
  var n:=ReadInteger('Количество строк в матрице:');
  var m:=ReadInteger('Количество столбцов в матрице:');
  Writeln('*** Исходная матрица [',n,',',m,'] ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Write('Количество элементов, превышающих 2, равно ');
  Writeln(a.Rows.SelectMany(x->x).Where(x->x>2).Count)
end.

Пример:
Количество строк в матрице: 4
Количество столбцов в матрице: 7
*** Исходная матрица [4,7] ***
  46  81 -90 -42  -7  -2 -16
 -32 -12  16 -46 -54 -85  97
  26  98  77  68 -21  47 -63
  27   8  -1  54 -46 -52  52

Количество элементов, превышающих 2, равно 13