DIM a(1000), t AS SINGLE DIM n, i, j AS INTEGER CLS PRINT "How many numbers?" INPUT n FOR i = 1 TO n PRINT "Give me number No"; i INPUT a(i) NEXT FOR i = 1 TO n - 1 FOR j = i + 1 TO n IF a(i) > a(j) THEN t = a(i) a(i) = a(j) a(j) = t END IF NEXT NEXT FOR i = 1 TO n PRINT a(i); NEXT