Данна матрица целых чисел 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.