用ST语言写一个排序算法

以下是使用ST语言编写的冒泡排序算法：

PROGRAM SORT_ALGORITHM
VAR
    i, j : INT;
    temp : INT;
    arr : ARRAY[1..10] OF INT := [9, 7, 5, 3, 1, 2, 4, 6, 8, 10];

BEGIN
    FOR i:=1 TO 10 DO
        FOR j:=1 TO 10-i DO
            IF arr[j] > arr[j+1] THEN
                temp := arr[j];
                arr[j] := arr[j+1];
                arr[j+1] := temp;
            END_IF
        END_FOR
    END_FOR

    FOR i:=1 TO 10 DO
        WRITE(arr[i]);
    END_FOR
END_PROGRAM

以上代码首先定义了一个包含10个整数的数组，然后使用嵌套的FOR循环实现了冒泡排序算法。最后，将排序后的数组打印出来。