Даны действительные числа а1.......a17.Получить а11,a12....a17,a10,a9,...a1паскаль

begin
  var s:=ArrGen(17,i->real(i+1)); s.Println;
  (s[10:]+s[9::-1]).Println
end.


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
11 12 13 14 15 16 17 10 9 8 7 6 5 4 3 2 1