Из элементов массива С сформировать массив А такого же размера по правилу:если номер четный, то А[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.