Дан двумерный массив целых чисел N*M (задается рандомно). Вычислить сумму всех элементов массива, стоящих в ячейках с четными координатами. Pascal

ybdabuf yt gjyzk z xtnj 

const N=10;const M=15;var A: array [1..N] of integer;var B: array [1..M] of integer;i,j: integer;beginj:=0;for i:=1 to N doA[i]:=random(100);for i:=1 to M doB[i]:=random(100);for i:=1 to N doif i mod 2=0 then j:=j+A[i];for i:=1 to M do if i mod 2=0 then j:=j+B[i];writeln('Сумма всех элементов массива, стоящих в ячейках с чётными координатами равна: ', j);end.