Дана последовательность: 9,6,3,7,0. Записать с помощью сортировки: обмена, выбора, простыми вставками(включения).

const
  n = 5;
var
  arr: array[1..n] of integer;
  buf, min, i, j: integer;
begin
  writeln('Массив: ');
  for i:=1 to n do
    read(arr[i]);
  for i:=1 to n-1 do
  begin
    min:=i;
    for j:=i+1 to n do
      if arr[j] < arr[min] then min:=j;
    buf:=arr[min];
    arr[min]:=arr[i];
    arr[i]:=buf;
  end;
  writeln('Отсортированный: ');
  for i:=1 to n do
    write(arr[i], ' ');
end.

const
  n = 5;
var
  arr: array[1..n] of integer;
  buf, i, j: integer;
begin
  writeln('Массив: ');
  for i:=1 to n do
    read(arr[i]);
  for i:=1 to n-1 do
    for j:=1 to n-1 do
      if arr[j] > arr[j+1] then
      begin
        buf:=arr[j];
        arr[j]:=arr[j+1];
        arr[j+1]:=buf;
      end;
  for i:=1 to n do
    write(arr[i], ' ');
end.

const
  n = 5;
var
  arr: array[1..n] of integer;
  key, i, j: integer;
begin
  writeln('Массив: ');
  for i:=1 to n do
    read(arr[i]);
  for i:=2 to n do
  begin
    key:=arr[i];
    j:=i-1;
    while (j > 0) and (arr[j] > key)do
    begin
        arr[j + 1] := arr[j];
        j := j - 1;
    end;
    arr[j + 1] := key;
  end;
  writeln('Отсортированный: ');
  for i:=1 to n do
    write(arr[i], ' ');
end.