Проверить, является ли последовательность из 10 целых чисел, вводимых с клавиатуры, возрастающей - QBasic

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

Составить программу , проверяющую, является ли последовательность из 10 целых чисел, вводимых с клавиатуры, возрастающей. Задачка вроде легкая, но как вывести ответ конкретно да или нет не догоняю! Заранее спасибо

Решение задачи: «Проверить, является ли последовательность из 10 целых чисел, вводимых с клавиатуры, возрастающей»

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

CLS
INPUT "vvedite chislo ", a 
FOR i = 2 TO 10 
   INPUT "vvedite ocherednoe chislo ", b
   IF b < a THEN f=1 
   a = b
NEXT
IF f THEN PRINT "NO" ELSE PRINT "YES"
END

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

CLS - очистка экрана
INPUT vvedite chislo, a - ввод первого числа и сохранение его в переменной a
FOR i = 2 TO 10 - начало цикла, который выполнится 10 раз
INPUT vvedite ocherednoe chislo, b - ввод очередного числа и сохранение его в переменной b
IF b < a THEN f=1 - если число b меньше числа a, то установить значение переменной f равным 1
a = b - присвоить переменной a значение переменной b
NEXT - завершение цикла
IF f THEN PRINT NO ELSE PRINT YES - проверить значение переменной f и вывести соответствующее сообщение
END - завершение программы