В целочисленом массиве A(35) найти количество нечетных элементов имеющих четные индексы. Считается что в массиве есть хотя бы один элемент, удовлетворяющий условию

begin
  var a:=ArrRandom(35,-99,99); a.Println; // индексы от нуля!
  Writeln('S=',a.Where((v,i)->i.IsEven and v.IsOdd).Sum)
end.


-71 65 -4 -59 -76 -8 -63 43 78 84 6 -59 26 -95 -80 99 67 11 -48 -35 38 -86 78 48 91 -91 78 2 96 83 25 2 -62 45 82
S=49