В заданном массиве a от n целых частей, все нечетные по

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 lt;gt; 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.