В массиве 5x5 из целых чисел вычислить количество четных элементов в строках с четными индексами pascal

Const

n=5;

var

x:array[1 ... n, 1 ... n] of integer;

i, j, k:integer;

begin

Randomize;

Writeln ('Исходный массив');

for i:=1 to n do

begin

for j:=1 to n do

begin

x[i, j]:=Random (50) + 1;

Write (x[i, j]:4)

end;

Writeln

end;

k:=0; i:=2;

while i<=n do begin

for j:=1 to n do

if x[i, j] mod 2=0 then Inc (k);

i:=i+2

end;

Writeln ('Количество четных элементов в четных строках равно ', k)

end.

Тестовое решение:

Исходный массив

1 14 23 17 39

27 37 28 28 21

10 6 3 38 22

1 31 27 50 42

16 43 27 16 17

Количество четных элементов в четных строках равно 4