1. Написать программку сортировки целочисленного массива из 10 частей методом пузырька

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

// простая пузырьковая сортировка

procedure BubbleSort(a:array of integer);
begin
  var n:=a.Length;
  for var i:=n-2 downto 0 do
    for var j:=0 to i do
      if a[j]gt;a[j+1] then Swap(a[j],a[j+1])
end;

begin
  var a:=ReadArrInteger('Введите данные:',ReadInteger('n='));
  BubbleSort(a);
  a.Println
end.

Пример
n= 6
Введите данные: 4 7 2 8 0 2
0 2 2 4 7 8