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]>a[j+1] then Swap(a[j],a[j+1])end;begin  var a:=ReadArrInteger('Введите данные:',ReadInteger('n='));  BubbleSort(a);  a.Printlnend.Примерn= 6Введите данные: 4 7 2 8 0 20 2 2 4 7 8