Данна матрица целых чисел b (n, n) где n четное найти сумму четных элементов

var a:array [1 ... 1000,1 ... 1000] of integer; / / создание двухмерного массива

i, n, j, sum:integer; / /инициализация переменных

begin

sum:=0; / / в начале сумма равна нулю

read (n); / / считываем N

for i:=1 to n do

for j:=1 to n do

read (a[i, j]); / / читаем матрицу

for i:=1 to n do

for j:=1 to n do

if (a[i, j] mod 2 = 0) then sum:=sum + a[i, j]; / /проверяет все элементы матрицы на четность, если элемент / /четный, то выводит прибавляет его к сумме

write (sum); / / вывод ответа на поставленную задачу.

end.