Дан двумерный массив tab размером 4 на 5 определите количество четных элементов массива. напишите программу в паскале!

Var
tab: array[1..4, 1..5] of integer;
i, j, k: integer;

begin
k := 0;
for i := 1 to 4 do
for j := 1 to 5 do
begin
read(tab[i][j]);
if tab[i][j] mod 2 = 0 then k := k + 1;
end;
writeln(k);
end.