Klavyeden Girilen N elemanlı A dizisini Küçükten Büyüğe Doğru Sıralayan Program

CLS
INPUT "dizi eleman sayısını giriniz = ", n
DIM a(n)
FOR x = 1 TO n
PRINT "A("; x; ")="; : INPUT "", a(x)
NEXT
FOR p = 1 TO n - 1
FOR r = p + 1 TO n
IF a(r) < a(p) THEN SWAP a(p), a(r)
NEXT r, p
PRINT "SIRALAMA ": PRINT STRING$(10, 178)
FOR p = 1 TO n: PRINT "A("; p; ")="; a(p)
NEXT
END