Дан массив из N элементов определить количество элементов имеющие четные порядковые номера и являющихся нечетными числами

const w=10000;vari,n,sum:integer;a:array[1..w] of integer;beginwriteln('Введите кол-во элементов в массиве');readln(n);for i:=1 to n dobegina[i]:=random(100);if (a[i] mod 2<>0) and (i mod 2 = 0) then inc (sum);end;writeln(sum);end.