/media/sda-magnetic/david/Dok-15-2023-11-27/fernuni-hagen/cs-i-ii/old-cs-2-01/informatik2/4yun7x-2021-03-04/code2.txt

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

$vary:=0;

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

$xyz := 0;
$abc := 0;
$hgj := 0;

WHILE $xyz < 12 DO
BEGIN
    $abc := $xyz+1;
    WHILE $abc < 12 DO
    BEGIN
        IF $varx[$abc] < $varx[$xyz] THEN
        BEGIN     
            $hgj := $varx [$abc];
            $varx [$abc] := $varx [$xyz];
            $varx [$xyz] := $hgj
        END;
        $abc := $abc + 1;
    END;
    $xyz := $xyz+1
END;


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