"justify">
:=i; { присвоюємо змінної до поточний ключ
}:=a [i]; { присвоюємо змінної х значення ключа
} inc (sr); { збільшуємо лічильник порівнянь }
inc (pr); { збільшуємо лічильник переміщень }
{ Пересуваємо на 1 позицію направо елементи,
великі вставляється елементу (він записаний в x)}
{Умова k> 1 гарантує, що ми не вийдемо за
кордон масиву, якщо вставляється елемент,
менший усіх попередніх.}
(A [k - 1]> x) and (k> 1) do
[k]:=a [k - 1];:=k - 1;
inc (sr); { збільшуємо лічильник порівнянь }
inc (pr); { увелічівает лічильник переміщень };
{ Вставляємо елемент у потрібну позицію } [k]:=x;
inc (pr); { збільшуємо лічильник переміщень }
end;;
procedure print; { процедура друку масиву в рядок } i: Integer; i:=1 to n do (a [i], « »);;
end;
vozrastanie; { Заповнення масиву числами по зростанню }
var: Integer;
perem:=0;:=0;
for z:=1 to m do
begini:=1 to n do [i]:=i;
print;
writeln;;;
perem:=perem + pr; { підрахунок переміщень за м к-ть сортировок }
sravn:=sravn + sr; { підрахунок порівнянь за м к-ть сортировок } ;
peremsr:=perem / m; { середнє знач перемещ. за м сортировок }
sravnsr:=sravn / m; { середнє знач порівнянь за м сортировок }
;
ubivanie; { Заповнення масиву числами за спаданням }
var: Integer;
begin
perem:=0;:=0;
for z:=1 to m doi:=1 to n do [i]:=n - i;
print;
writeln;;;
perem:=perem + pr;
sravn:=sravn + sr; ;
...
