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