Сколько частей массива будут иметь четное значение? for n:=1 to 9

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

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] lt; 8 then m := m + 1;
writeln(m)
End.