/media/sda-magnetic/david/Extern-Magnetic-2022-06-29/Extern01/Dokumente-2021-05-8/disk10-ab-2020-01-10/02-debian-pc2-work/informatik/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;