Алгоритм фон Неймана. Упорядочить массив а1, а2,…, аn по неубыванию с помощью алгоритма сортировки слияниями:1) каждая пара соседних элементов сливается в одну группу из двух элементов (последняя группа может состоять из одного элемента);2) каждая пара соседних двухэлементных групп сливается в одну четырехэлементную группу и т.д.При каждом слиянии новая укрупненная группа упорядочивается — Pascal(Паскаль)

program Sort_include_01;
const n=10;
type Vec=array[1..n] of real;
var i,j:integer; {счётчики циклов}
       y:real;     {временная переменная для переcтановки элементов}
       A:Vec;     {исходный массив}
begin
\\получение элементов массива\\
writeln;
for i:=2 to n do
begin
y:=a[i];
j:=i-1;
while (j>=1) and (y<a[j]) do
begin
a[j+1]:=a[j];
j:=j-1;
end;
a[j+1]:=y;
end;
\\вывод упорядоченного массива\\
readln;
end.