Program Array15;
var
  a: array of integer;
  i, n: integer;
begin
  WriteLn('Размер массива:');
  ReadLn(n);
  SetLength(a, n);
  Writeln('Введите ', n, ' чисел:');
  for i := 0 to n - 1 do
    Read(a[i]);
  ReadLn;
  i := 0;
  while i < n do
  begin
    Write(a[i], ' ');
    Inc(i, 2);
  end;
  i := ord(odd(n));
  i := n - i - 1;
  while i >= 0 do
  begin
    Write(a[i], ' ');
    Dec(i, 2);
  end;
  WriteLn;
  ReadLn;
end.