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