Определить количество положительных и отрицательных чисел в последовательности - QBasic

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

Вводится последовательность ненулевых чисел, завершаемая нулем. Определить количество положительных и отрицательных чисел в этой последовательности. ---------------------- Даны натуральные числа п и т. Вывести все числа в диапазоне от п до т, которые заканчиваются на 6, 8 или 9.

Решение задачи: «Определить количество положительных и отрицательных чисел в последовательности»

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

CLS:kp=0:ko=0
DO
INPUT "n="; n                 'ввод числа
IF n<0 THEN ko = ko + 1  'подсчёт кол-ва отрицательных 
IF n>0 THEN kp = kp + 1  'подсчёт кол-ва положительных
LOOP UNTIL n = 0            'вводим до тех пор, пока не будет введён ноль
PRINT "kol-vo pol:"; kp
PRINT "kol-vo otr:"; ko
END

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

CLS — команда очистки экрана
kp=0:ko=0 — инициализация переменных для подсчёта положительных и отрицательных чисел соответственно
DO — начало цикла
INPUTn=; n — ввод числа с шагом 1
IF n<0 THEN ko = ko + 1 — если число отрицательное, то увеличиваем счётчик отрицательных чисел на 1
IF n>0 THEN kp = kp + 1 — если число положительное, то увеличиваем счётчик положительных чисел на 1
LOOP UNTIL n = 0 — цикл продолжается до тех пор, пока не будет введён ноль
PRINTkol-vo pol:; kp — вывод количества положительных чисел
PRINTkol-vo otr:; ko — вывод количества отрицательных чисел
END — конец программы