Заменить элементы массива с нечетными индексами на квдрат их ...

Ira

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.