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

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

помогите пожалуйста с задачей 1)Определить процент положительных и отрицательных чисел.При вводе числа -65432 закончить работу. заранее спасибо

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

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

CLS
PRINT "to finish entering - enter '-65432'."
DO
    INPUT "enter number: ", a
    IF a = -65432 THEN EXIT DO
    IF a < 0 THEN c = c + 1 ELSE n = n + 1
LOOP
PRINT STRING$(80, 196)
IF c + n THEN
    PRINT "positive:"; n * 100 / (c + n); "%"
    PRINT "negative:"; c * 100 / (c + n); "%"
ELSE
    PRINT "input error"
END IF

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

CLS — очистка экрана
PRINTto finish entering - enter '-65432'.`` — вывод сообщения об окончании ввода и условия выхода из цикла
DO — начало цикла
INPUTenter number: , a — ввод числа и присвоение его переменной a
IF a = -65432 THEN EXIT DO — проверка условия выхода из цикла
IF a < 0 THEN c = c + 1 — проверка числа на отрицательность и увеличение счетчика отрицательных чисел c
ELSE n = n + 1 — проверка числа на положительность и увеличение счетчика положительных чисел n
LOOP — конец цикла
PRINT STRING$(80, 196) — вывод строки для разделения результатов
IF c + n THEN — проверка наличия введенных чисел
PRINTpositive:; n * 100 / (c + n);%`` — вывод процента положительных чисел
PRINTnegative:; c * 100 / (c + n);%`` — вывод процента отрицательных чисел
ELSE — проверка ошибки ввода
PRINTinput error`` — вывод сообщения об ошибке ввода
END IF — конец проверки наличия введенных чисел
IF c + n THEN — проверка наличия введенных чисел
n * 100 / (c + n) — вычисление процента положительных чисел
c * 100 / (c + n) — вычисление процента отрицательных чисел
END IF — конец проверки наличия введенных чисел
IF c + n THEN — проверка наличия введенных чисел
PRINTpositive:; n * 100 / (c + n);%`` — вывод процента положительных чисел
PRINTnegative:; c * 100 / (c + n);%`` — вывод процента отрицательных чисел
ELSE — проверка ошибки ввода
PRINTinput error`` — вывод сообщения об ошибке ввода
END IF — конец проверки наличия введенных чисел