/media/sda-magnetic/david/Dokumente-15/fernuni-hagen/cs-i-ii/old-cs-2-03/4yun7x-2021-03-04/code.txt

$0 := 0;
WHILE $0 < 10 DO
BEGIN
    $1[$0]:=10+$0;
    $0:=$0+1;
    print $0
END;

$0:=0;

$1[0] := 4;
$1[1] := 8;
$1[2] := 46;
$1[3] := 1;
$1[4] := 39;
$1[5] := 72;
$1[6] := 91;
$1[7] := 17;
$1[8] := 20;
$1[9] := 31;
$1[10] := 82;
$1[11] := 101;
$1[12] := 56;

$100 := 0;
$101 := 0;
$102 := 0;

WHILE $100 < 12 DO
BEGIN
    $101 := $100+1;
    WHILE $101 < 12 DO
    BEGIN
        IF $1[$101] < $1[$100] THEN
        BEGIN     
            $102 := $1 [$101];
            $1 [$101] := $1 [$100];
            $1 [$100] := $102
        END;
        $101 := $101 + 1;
    END;
    $100 := $100+1
END;


$100 := 0;
WHILE $100 < 12 DO
BEGIN
    print $1 [$100];
    $100 := $100 + 1
END;