Из элементов массива С сформировать массив А такого же размера по правилу: если номер четный, то А[i]=C[i]/2, если не четный то А[i]=2*C[i]"

Var

a, c : array of integer;

n, i : integer;

begin

read (n);

SetLength (a, n + 1);

SetLength (c, n + 1);

for i:=1 to n do

read (c[i]);

for i:=1 to n do

if (i mod 2 = 0) then

a[i] : = c[i] div 2

else

a[i] : = 2 * c[i];

for i:=1 to n do

write (a[i], ' ');

end.