Написать программу: нечетным элементам одномерного массива присвоить значения квадратов индексов.

//PascalABC.Net 3.2 begin var a:=ReadArrInteger ('Вводите массив: ', readinteger('Кол-во элементов: ')); for var i:=0 to length(a)-1 do if a[i].isodd then a[i]:=sqr(i+1); a.Println; a.Println; end.