const
  n = 5;

var
  A: array[1..n] of integer;
  i, j, nomer_min: integer;
  min: integer;

begin
  writeln('Введите массив');
  for i := 1 to n do
    readln(A[i]);
  min := A[1];
  j := 1;
  i := 1;
  for i := 1 to n - 1 do
  begin
    min := A[i];
    nomer_min := i;
    for j := (i + 1) to n do
    begin
      if A[j] < min then
      begin
        min := A[j];
        nomer_min := j;

      end;
    end;
    A[nomer_min] := A[i];
    A[i] := min;

  end;
  for j := 1 to n do
    write(A[j]:4);
end.