Дан массив. Распечатать все не отрицательные массивы- QBasic(Бейсик)

INPUT "vvedite kol-vo elementov", n
DIM a(n)
FOR i = 1 TO n
    INPUT "vvedite element", a(i)
NEXT
FOR i = 1 TO n
    IF a(i) < 0 THEN PRINT a(i)
NEXT