С клавиатуры вводятся N целых чисел. Найти количество отрицательных среди них — Basic(Бейсик)

N = 5
 CLS
 FOR i = 1 TO N
   INPUT "Vvedite celoe chislo:", A
   IF A < 0 THEN Otr = Otr + 1
 NEXT
COLOR 10: PRINT "Otricatelnyh chisel:"; Otr