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

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.