PROGRAM SORTAREA;
VAR V:ARRAY[1..10000]OF longint;
    N,I,AUX:LONGINT;f,g:text;
    OK:BOOLEAN;
BEGIN
  assign(f,'algsort.in');reset(f);
  assign(g,'algsort.out');rewrite(g);
  READLN(f,N);
   FOR I:=1 TO N DO BEGIN
     READ(f,V[I]);
     END;
     REPEAT
     OK:=FALSE;
       FOR I:=1 TO N-1 DO
         IF V[I]>V[I+1] THEN BEGIN
         AUX:=V[I];
         V[I]:=V[I+1];
         V[I+1]:=AUX;
         OK:=TRUE; END;
       UNTIL NOT OK;
      FOR I:=1 TO N DO WRITE(g,V[I],' '); close(f);close(g);
END.