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.