program sortare;
var x:array[1..50000] of word;
    f,g:text;
    indice,min,i,j,temp,n:longint;
begin
assign (f,'algsort.in'); reset (f);
assign (g,'algsort.out'); rewrite (g);
readln (f,n);
for i:=1 to n do read (f,x[i]);
for i:=1 to n-1 do begin min:=x[i];
                         indice:=i;
                         for j:=i+1 to n do if (x[j]<min) then begin min:=x[j];
                                                                     indice:=j;
                                                               end;
                         temp:=x[i];
                         x[i]:=x[indice];
                         x[indice]:=temp;
                   end;
for i:=1 to n do write (g,x[i],' ');
close (f);
close (g);
end.