Вывести массив и полученную сумму. Упорядочить массив X(n) по не убыванию. Вывести полученный массив. Исходный массив элементов получить с помощью датчика случайных чисел. Значения буквенных переменных задавать с клавиатуры — QBasic(Бейсик)

CLS
INPUT "Vvedite kol-vo elementov massiva:", n
DIM x(n) AS INTEGER
FOR i = 1 TO n
x(i) = INT(RND * 61)
PRINT x(i);
IF i MOD 2<>0 THEN s=s+x(i)
NEXT
PRINT
PRINT "s=";s
FOR i = 1 TO n
FOR j = 2 TO n
IF x(j) > x(j-1) THEN SWAP x(j), x(j-1)
NEXT 
NEXT 
PRINT
FOR i = 1 TO n
PRINT x(i);
NEXT
END