PROGRAM SORTAREA;
VAR V:ARRAY[1..100]OF INTEGER;
    N,I,AUX:LONGINT;
    OK:BOOLEAN;
BEGIN
  WRITE('N=');READLN(N);
   FOR I:=1 TO N DO BEGIN
     WRITE('V[',I,']=');READLN(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(V[I],' ');
END.