// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=ReadArrInteger(n);
a:=(a[:n div 2].OrderBy(t->t)+a[n div 2:].OrderBy(t->t)).ToArray;
a.Println
end.
Пример
n= 8
5 3 4 2 1 6 3 2
2 3 4 5 1 2 3 6