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.