PROGRAM AUFSTEIGEND(INPUT,OUTPUT);
CONST N=100;
TYPE STRING = ARRAY[1..N] OF INTEGER;
VAR FELD:STRING;
    ANZ:INTEGER;
PROCEDURE EINLESEN( VAR FELD:STRING);
VAR I:INTEGER;
BEGIN
READLN;
FOR I:=1 TO ANZ
DO READ(FELD[I])
END;
PROCEDURE SORTIEREN( VAR FELD:STRING);
VAR K,L:INTEGER;
 PROCEDURE VERTAUSCHEN(VAR I,J:INTEGER);
 VAR HILF:INTEGER;
 BEGIN
HILF:=I; I:=J; J:=HILF
END;
BEGIN
FOR L:= ANZ DOWNTO 2 DO
BEGIN 
K:=0;
REPEAT
 K:=K+1;
 IF(FELD[K]>FELD[K+1])
 THEN VERTAUSCHE(FELD[K],FELD[K+1])
UNTIL K=L-1
END END;

PROCEDURE AUSGEBEN(FELD:STRING);
VAR I:INTEGER;
BEGIN
FOR I:=1 TO ANZ DO
WRITE (FELD[I])
END;

BEGIN(*HAUPTPROGRAMM*)
WRITELN("WIEVIELE ZAHLEN SOLLEN SORTIERT WERDEN?");
READLN; READ(ANZ);
WRITELN("WIE HEISSEN DIE ZAHLEN?");
EINLESEN(FELD);
SORTIEREN(FELD);
AUSGEBEN(FELD)
END.