Дан одномерный массив целых чисел. найти сумму всех четных элементов массива, стоящих на четных местах (имеющих четные номера). Массив задается с помощью генератора случайных чисел. если можно с блок-схемой

const n=10; {Можно подставить любое число} var a:array[1..n] of integer; i,s:integer; begin  randomize;  for i:=1 to n do    begin     a[i]:=random(8)+1; {Массив заполняется числами от 1 до 9}     write(a[i],' ');    end;  writeln;  s:=0;  for i:=1 to n do    if (i mod 2)=0 then s:=s+a[i];  writeln(s); end.