РЕБЯТ, СРОЧНЯК!!!
Дан двумерный массив 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.