Помогите возвести каждый второй элемент массива в квадрат(паскаль)

это и есть каждый второй элемент, Ннет?

Так я ввожу нечетные и они не возводятся

там если номер элемента четный (т. е. каждый второй элемент массива), то этот элемент заменяется его квадратом

Так если я пишу 2 числом нечетное то оно не возводится

ну да

const n = 15;

var

   a: array[1..n] of real;

   i, k: integer; 

begin

   for i:=1 to n do readln(a[i]);

   for i:= 1 to n do

   begin

       if i mod 2 = 0 then

       a[i]:= sqr(a[i]);

   writeln(a[i]);

   end;

end.