Написать программу по нахождение количества отрицательных чисел из произвольно введенных чисел- QBasic(Бейсик)

CLS
INPUT "vvedite kollichestvo chisel"; n
FOR i = 1 TO n
    INPUT "vvedite chislo"; a
    IF a < 0 THEN k = k + 1
NEXT
PRINT "otricatelnyh chisel:"; k