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.