Ответ: for i:=1 to n doif i mod 2<>0 then a[i]:=sqr(i);