Определить сумму второго, четвертого, шестого и т.д. элементов массива

sum:=0;
k:=2;
While k<=max do
Begin
  sum:=sum+m[k];
  Inc(k,2);
end;
Writeln(sum);

const
  max = 6;
var
  m: array[1..max] of integer;
  k, sum: integer;
begin
  writeln('Array:');
  for k:=1 to max do
  begin
    m[k]:=random(10);
    write(m[k]:4);
  end;
  writeln;
  
  sum:=0;
  k:=2;
  While k<=max do
  Begin
    sum:=sum+m[k];
    Inc(k,2);
  end;
  Writeln(sum);
  readln
end.

const
  max = 6;
var
  m: array[1..max] of integer;
  k, sum: integer;
begin
  writeln('Array:');
  for k:=1 to max do
  begin
    m[k]:=random(10);
    write(m[k]:4);
  end;
  writeln;
 
  sum:=0;
  for k:=1 to max div 2 do
    sum := sum + m[k*2];
  Writeln(sum);
  readln
end.

sum:=0;
for k:=2 to max do if not Odd(k) then sum:=sum+m[k];
 
sum:=0;
for k:=2 to max do sum:=sum+Integer(not Odd(k))*m[k];

var
    m : Array Of Integer;
    i, n : Byte;
    sum : Integer = 0;
begin
    Randomize;
    Write('n='); ReadLn(n);
    SetLength(m, n);
    Write('Array: ');
    for i := 0 to n - 1 do
    begin
        m[i] := Random(10);
        Write(m[i]:4);
        if Odd(i) then
            Inc(sum, m[i]);
    end;
    Writeln;
    WriteLn('sum=', sum);
end.