Дан одномерный массив, состоящий из 10 целых элементов. Найдите номера четных элементов, стоящих на нечетных местах.

var a:array[1..100]of integer; nol,chet,nechet,i,n:integer; begin readln(n); for i:=1 to n do begin  readln(a[i]); if (a[i] mod 2=0)and(a[i]<>0) then chet:=chet+1; if (a[i] mod 2=1) then nechet:=nechet+1; if a[i]=0 then nol:=nol+1; end; writeln('четных :',chet,' ','нечетных :',nechet,',' ',нулевых :',nol); end.