program Program5;
uses Crt;
type
  XArray = array [1..50, 1..50] of integer; {Описание типа массива X}
var
  i, j, n, k, imax, jmax:integer;
  X: XArray; {Использование описанного выше типа массива X для описания переменной X – массива чисел}
  Sum, Max: real;
begin clrscr;
{ Ввод массива}
Write('Введите размер квадратной матрицы X  n = '); Readln(n);

for i := 1 to n do {Цикл по i – по строкам матрицы}
       for j := 1 to n do {Вложенный цикл по j – по столбцам матрицы}
  begin
    Write('Введите X[ ',i,', ',j,'] = ');
    Readln(X[i,j]);
  end;

{Показ массива}
Writeln(' Набранная матрица: ');
i:=1;
while i<=n do
  begin
  for j := 1 to n do
    Write(X[i, j],' ');
  Writeln;
  i := i + 1;
  end;

{Подсчёт суммы четных элементов}
Sum := 0;
for i:=1 to n do
  begin
    for j:=1 to n do
    begin
if X[i, j] mod 2=0 then Sum:=Sum+X[i, j];
end;
end;
{Вывод результатов выполнения программы}
Writeln(' Сумма четных элементов: ',Sum:8:2);
{Ожидание нажатие клавиши перед закрытием программы – для просмотра результатов}
Writeln(' Нажмите любую клавишу для завершения …');
Readkey;
end.