Дан массив x(7). найти номера нечётных элементов, стоящих на чётных местах (паскаль)

А мне еще более лениво, поэтому решение на PascalABC.Net 3.2Зачем напрягаться, если автор жадный и задачу за 5 баллов ставит?begin  var x:=ArrRandom(7,-20,20); x.Println;  x.Select((e,i)->(e,i)).Where(a->(a[0] mod 2<>0) and (a[1] mod 2=0)).    Select(a->a[1]+1).Printlnend.Пример20 9 13 -9 7 -8 -63 5