Взаданном массиве a от n целых элементов, все нечетные по значению элементы удвоить, а чётные увеличить на 1. все четные элементы по номеру возвести в квадрат

var n,i:longint;

var a:array[1..10000000] of longint;

begin

writeln('Введите количество элементов массива');

readln(n);

writeln('Введите все элементы массива через пробел');

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

for i:=1 to n do if(a[i] mod 2 = 0) then a[i]:=a[i]+1 else if a[i] mod 2 <> 0 then a[i]:=a[i]*2;

for i:=1 to n do if i mod 2 = 0 then a[i]:=sqr(a[i]);

for i:=1 to n do write(a[i],' ');

end.