Заменить элементы массива с нечетными индексами на квдрат их индекса. полный текст программы,!

const n=5; var a: array [1..n] of real; i: integer; begin for i: =1 to n do begin readln(a[i]);                         if i mod 2=1 then a[i]: =sqr(i);                         writeln(i,' элемент массива равен : ',a[i]);                         end; end.