(для студентов)pascalabc.net дана действительная матрица размером n*m. найти среднее арифметическое каждого из столбцов, имеющих четные номера. подсчет среднего арифметического оформить функцией. напишите код программы.

PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018
Внимание! Если программа не работает, обновите версию!

function mean(Self:sequence of real):real; extensionmethod;
begin
  Result:=Self.Average
end;

begin
  var (n,m):=ReadInteger2('Количество строк и столбцов в матрице:');
  var a:=MatrGen(n,m,(i,j)->(Random(9000)+1000)/100);
  Writeln('*** Исходная матрица [',n,',',m,'] ***');
  a.Println(6,2); Writeln(6*a.ColCount*'-');
  Writeln('Средние значения по четным столбцам');
  SeqGen(m div 2,t->2*t-1,1).Select(j->a.Col(j).mean).Println
end.