// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
var n:=ReadInteger('Количество чисел в последовательности');
var a2:=ReadArrReal('Вводите числа',n).Batch(n div 2).ToArray;
a2[0].Interleave(a2[1].Reverse).Println
end.
Пример
Количество чисел в последовательности 6
Вводите числа 1.1 2.2 3.3 4.4 5.5 6.6
1.1 6.6 2.2 5.5 3.3 4.4