Given an array B (n * m). Enter the array elements in the program. Find the sum of even array elements. Pascal

program zz1;
const n = 3;
m = 3; // set the number of elements in the array
var i, j, k: integer; // set variables of integer type
b: array [1..n, 1..m] of integer;
begin
for i: = 1 to n do
for j: = 1 to m do // enter numbers from the keyboard and write them into an array
read (b [i, j]);
for i: = 1 to n do // display the resulting array on the screen
begin
for j: = 1 to m do
write (b [i, j]: 4);
writeln;
end;
for i: = 1 to n do
for j: = 1 to m do
if b [i, j] mod 2 = 0 then k: = k + b [i, j];
writeln (‘the sum of even array elements =’, k); // display the answer

end.