Дан массив 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).Println end. Пример 20 9 13 -9 7 -8 -6 3 5