Какие операции можно выполнить, проводя пользовательскую настройку

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  for var a:=1 to 10 do begin
    Writeln('Длина стороны ',a,' см');
    for var b:=1 to 10 do
      Writeln('Вторая сторона ',b:2,', периметр ',2*(a+b):2,
          ', площадь ',a*b:3)
    end
end.

Результат
Длина стороны 1 см
Вторая сторона  1, периметр  4, площадь   1
Вторая сторона  2, периметр  6, площадь   2
Вторая сторона  3, периметр  8, площадь   3
Вторая сторона  4, периметр 10, площадь   4
Вторая сторона  5, периметр 12, площадь   5
Вторая сторона  6, периметр 14, площадь   6
Вторая сторона  7, периметр 16, площадь   7
Вторая сторона  8, периметр 18, площадь   8
Вторая сторона  9, периметр 20, площадь   9
Вторая сторона 10, периметр 22, площадь  10
Длина стороны 2 см
Вторая сторона  1, периметр  6, площадь   2
Вторая сторона  2, периметр  8, площадь   4
Вторая сторона  3, периметр 10, площадь   6
Вторая сторона  4, периметр 12, площадь   8
Вторая сторона  5, периметр 14, площадь  10
Вторая сторона  6, периметр 16, площадь  12
Вторая сторона  7, периметр 18, площадь  14
Вторая сторона  8, периметр 20, площадь  16
Вторая сторона  9, периметр 22, площадь  18
Вторая сторона 10, периметр 24, площадь  20
Длина стороны 3 см
Вторая сторона  1, периметр  8, площадь   3
Вторая сторона  2, периметр 10, площадь   6
Вторая сторона  3, периметр 12, площадь   9
Вторая сторона  4, периметр 14, площадь  12

Длина стороны 10 см
Вторая сторона  1, периметр 22, площадь  10
Вторая сторона  2, периметр 24, площадь  20
Вторая сторона  3, периметр 26, площадь  30
Вторая сторона  4, периметр 28, площадь  40
Вторая сторона  5, периметр 30, площадь  50
Вторая сторона  6, периметр 32, площадь  60
Вторая сторона  7, периметр 34, площадь  70
Вторая сторона  8, периметр 36, площадь  80
Вторая сторона  9, периметр 38, площадь  90
Вторая сторона 10, периметр 40, площадь 100

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Количество строк/столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(n,n,-99,99);
  a.Println(4); Writeln(n*4*'-');
  var b:=a.Rows.Select(row->row.Where(t->t.IsOdd).DefaultIfEmpty.Average)
    .ToArray;
  b.Println;
end.

Пример
Количество строк/столбцов в матрице: 5
*** Исходная матрица ***
  40 -38  16 -70  26
  87   7 -31  99  34
 -34 -47 -33  32  56
  66  71  41   7  80
  55  42 -22   7  86

0 40.5 -40 39.6666666666667 31