Найдите сумму элементов четных и сумму нечетных строк

матрицы А (n, m)

Const n=5; m=5;

var a: array [1 ... n, 1 ... m] of integer;

i, j, s, s_:integer;

begin

writeln ('Исходная матрица: ') ;

for i:=1 to n do

begin

for j:=1 to m do

begin

a[i, j]:=random (15) + 1;

if (i mod 2) = 0 then

s:=s+a[i, j]

else

s_:=s_+a[i, j];

write (a[i, j]:4) ;

end;

writeln;

end;

writeln;

writeln ('Сумма чётных строк: ', s) ;

writeln ('Сумма не чётных строк: ', s_) ;

end.