Цикл: Подсчитать количество отрицательных чисел среди n введенных. - QBasic

Формулировка задачи:

прошу прощения, но с QBasic не очень знакома, поэтому прошу помощи. необходимо подсчитать количество отрицательных чисел среди n введенных. Если задать введение чисел получилось, то дальше ступор.... Заранее большое спасибо!!!!!!!!!!!!

Решение задачи: «Цикл: Подсчитать количество отрицательных чисел среди n введенных.»

Листинг программы

CLS
n = 1
k = 0
PRINT "Вводите числа, конец ввода - 0"
WHILE n <> 0
 INPUT n
 IF n < 0 THEN k = k + 1
WEND
PRINT "Отрицательных чисел:";k

Объяснение кода листинга программы

CLS — команда для очистки экрана
n = 1 - переменная для подсчета числа введенных чисел
k = 0 - переменная для подсчета количества отрицательных чисел
PRINT Вводите числа, конец ввода — 0 — вывод сообщения с просьбой ввести числа и сообщить об окончании ввода
WHILE n <> 0 - начало цикла, который будет выполняться до тех пор, пока n не станет равным нулю
INPUT n - запрос на ввод числа
IF n < 0 THEN k = k + 1 - проверка на отрицательность числа, если число отрицательное, то увеличиваем на единицу счетчик k
WEND - завершение цикла
PRINT Отрицательных чисел:;k — вывод на экран количества отрицательных чисел