Дана последовательность N целых чисел,заканчивающихся 0. Определить является ли она возрастающей - QBasic

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

Дана последовательность N целых чисел,заканчивающихся 0. Определить является ли она возрастающей. В Бейсике

Решение задачи: «Дана последовательность N целых чисел,заканчивающихся 0. Определить является ли она возрастающей»

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

CLS
   DO: n = n + 1
     PRINT "Vvedite chislo N" + CHR$(248); n;
     INPUT ":  ", c
       IF c = 0 THEN EXIT DO
     IF n > 1 AND c <= oc THEN NeVoz = 1
     oc = c
   LOOP
IF NeVoz THEN PRINT "ne ";
PRINT "vozrastaushaja posledovatelnost"

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

CLS — очистка экрана
DO: — начало цикла
n = n + 1 — увеличение счетчика на 1
PRINTVvedite chislo N+ CHR$(248); n; — вывод запроса на ввод числа N и его значения
INPUT: , c — ввод числа и символа «:»
IF c = 0 THEN EXIT DO — проверка, не равно ли введенное число нулю, если равно, то выход из цикла
IF n > 1 AND c <= oc THEN NeVoz = 1 — проверка, не является ли последовательность возрастающей, начиная со второго числа
oc = c — обновление значения oc (максимальное число в последовательности)
LOOP — конец цикла
IF NeVoz THEN PRINTne ; — вывод слова «не» в случае, если последовательность не возрастающая
PRINTvozrastaushaja posledovatelnost`` — вывод слова «возрастающая последовательность»