PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
Writeln('*** Вводите элементыв построчнон через пробел ***');
var a:=ReadMatrInteger(n,n);
Writeln(4*a.ColCount*'-');
Writeln('Количество четных элементов в первой и последней строке: ',
a.Row(0).Where(t->t.IsEven).Count+
a.Row(n-1).Where(t->t.IsEven).Count);
Writeln('Количество четных элементов в первом и последнем столбце: ',
a.Col(0).Where(t->t.IsEven).Count+
a.Col(n-1).Where(t->t.IsEven).Count);
end.