Bubble sort

CLS
n = 5
DIM a(n)
PRINT "Сортировка методом пузырька"
FOR k = 1 TO n
  PRINT "a("; k; ")=";
  INPUT a(k)
NEXT k
PRINT "Сортировка…"
FOR i = 1 TO n - 1
 FOR k = 1 TO n - 1
   IF a(k) > a(k + 1) THEN
     buf = a(k)
     a(k) = a(k + 1)
     a(k + 1) = buf
   END IF
 NEXT k
NEXT i
PRINT "Массив отсортирован: "
FOR k = 1 TO n
  PRINT a(k);
NEXT k