Дан массив. заменить элементы с нечетными номерами на квадраты их номеров
For i:=1 to n do if i mod 2<>0 then a[i]:=sqr(i);