Найти сумму элементов матрицы, стоящих в четных строках

s:=0;
for i:=1 to n do
if i mod 2=0 then
for j:=1 to n do s:=s+a[i,j];

uses crt;
const nmax=15;
var a:array[1..nmax,1..nmax] of integer;
n,m,i,j,k,s:integer;
begin
randomize;
repeat
write('размер до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('исходная матрица');
k:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(50);
if a[i,j] mod 2=0 then
begin
k:=k+1;
textcolor(green);
end
else textcolor(black);
write(a[i,j]:4);
s:=0;
for i:=1 to n do
if i mod 2=0 then
for j:=1 to n do s:=s+a[i,j];
end;
writeln;
end;
textcolor(black);
write('количество=',k)
end.

uses crt;
const nmax=15;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j: byte;
    s:integer;
begin
randomize;
 repeat
   write('размер до ',nmax,' n=');
   read(n);
 until n in [1..nmax];
writeln('исходная матрица');
s:=0;
for i:=1 to n do
    begin
    if i mod 2=0 then textcolor(green)
       else textcolor(black);
    for j:=1 to n do
        begin
        a[i,j]:=random(50);
        if i mod 2=0 then s:=s+a[i,j];
        write(a[i,j]:4);
        end;
    writeln;
    end;
textcolor(black);
writeln(s);
end.

for j:=1 to n do
    s:=s+[1,j]