Дан массив, посчитать среднее арифметическое частей с чётными индексами.

//Pascal
const N = 10;
var
    a: array[1..N] of integer;
    i, k, s: integer;
begin
//Для теста заполним массив сл. значениями
  s:=0;k:=0;
    for i:=1 to N do begin
        a[i] := random(11);
        write(a[i]:4);
        if (i mod 2 = 0) then begin
          s:=s+a[i];
          k:=k+1;
        end;   
    end;
    writeln;
    writeln('Среднее арифметическое ', s/k);
end.