Дан массив. нечетные оставить без изменений, четные увеличить в 3 раза

For i:=1 to n do if (a[i] mod 2 = 0) then a[i]:=a[i]*3;
это если нечетные элементы, если элементыс нечетными индексами, то в условии просто i. В задании не указано что именно нечетное.