6.6

program prog;
var
  i, j, a, b : longint;
  arr :array[1..10] of longint;
begin
  for i := 1 to 10 do
    read(arr[i]);
// пузырек
  for i := 1 to 10 do
    for j := 1 to 10 - i do begin
      if (arr[j] > arr[j + 1]) then begin
        a := arr[j];
        arr[j] := arr[j + 1];
        arr[j + 1] := a;
      end;
  end;
// здесь делаем переворот второй части, у меня он сделан криво и работает только для варианта с массивом длины 10
  j := 4;
  for i := 6 to 7 do begin
    a := arr[i];
    arr[i] := arr[i + j];
    arr[i + j] := a;
    j := j - 2;
  end;
  for i := 1 to 10 do
    write(arr[i], ' ');
end.