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