Сколько элементов массива будут иметь четное значение?

for n: = 1 to 9 do
for k: = 1 to 9 do
A[n,k]: = n+k

..........

Что выведет данная программа?

Var k, m: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] : = 7; Dat[2] : = 9;
Dat[3] : = 10; Dat[4] : = 5;
Dat[5] : = 6; Dat[6] : = 7;
Dat[7] : = 9; Dat[8] : = 8;
Dat[9] : = 6; Dat[10] : = 7;
m : = 0;
for k : = 1 to 10 do
if Dat[k] < 8 then m : = m + 1;
writeln(m)
End.