Дан массив из n элементов (n- четное). распечатать его в следующем порядке: a1,an,a2,a(n-(n/2),a(n/2+1).

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,-99,99); a.Println;
  for var i:=0 to (n-1) div 2 do Print(a[i],a[n-i-1])
end.

Пример
n= 16
-85 -72 78 -43 15 -67 33 -65 26 71 32 20 6 -23 -89 -82
-85 -82 -72 -89 78 -23 -43 6 15 20 -67 32 33 71 -65 26