program ChoiceSORT;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
   UserArr: array of Integer;
   N, MinElement, MinElementIndex, Iteration, i, j: integer;
begin
   Writeln('Enter N');
   Readln(N);
   SetLength(UserArr, N);
   Iteration := N - 1;
   for i := 0 to Iteration do
      Read(UserArr[i]);
   for i := 0 to Iteration do
   begin
      MinElement := UserArr[i];
      MinElementIndex := i;
      for j := i + 1 to Iteration do
         if UserArr[j] < MinElement then
         begin
            MinElement := UserArr[j];
            MinElementIndex := j;
         end;
      UserArr[MinElementIndex] := UserArr[i];
      UserArr[i]:= MinElement;
   end;
   for i := 0 to Iteration do
      Write(UserArr[i], ' ');
   Readln;
   Readln;
end.