Определить, что элементы массива составляют строго возрастающую последовательность - QBasic

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

Помогите написать программу для QBasic Заранее спасибо!!!!! Дан одномерный целочисленный массив А, состоящий из N элементов, N - заданное натуральное число. Присвоить переменной F значение 1, если элементы массива составляют строго возрастающую последовательность, значение -1, если элементы массива составляют строго убывающую последовательность, значение 2, если элементы массива составляют знакочередующуюся последовательность и значение 0, если последовательность не является монотонной или знакочередующейся.

Решение задачи: «Определить, что элементы массива составляют строго возрастающую последовательность»

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

DEFINT A, F, I, K, N
OPTION BASE 1
DIM a(n)
ERASE f, k1, k2, k3
FOR i=1 TO n-1
   IF a(i)<a(i+1) THEN k1=k1+1
   IF a(i)>a(i+1) THEN k2=k2+1
   IF SGN(a(i)*a(i+1))=-1 THEN k3=k3+1
NEXT i
IF k1=n-1 THEN f=1
IF k2=n-1 THEN f=-1
IF k3=n-1 THEN f=2
PRINT "F=";f
END

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

Сначала определяются переменные A, F, I, K, N типа INTEGER
Затем используется команда OPTION BASE 1, которая задает основание массива равным 1
Далее, с помощью команды DIM a(n), создается массив a размером n
Командой ERASE f, k1, k2, k3 удаляются все предыдущие значения переменных f, k1, k2, k3
Затем с помощью цикла FOR i=1 TO n-1 происходит сравнение элементов массива a(i) и a(i+1)
Если a(i)<a(i+1), то значение переменной k1 увеличивается на 1
Если a(i)>a(i+1), то значение переменной k2 увеличивается на 1
*Если SGN(a(i)a(i+1))=-1, то значение переменной k3 увеличивается на 1**
После завершения цикла, проверяется значение переменной k1
Если k1=n-1, то значение переменной f устанавливается равным 1
Если k2=n-1, то значение переменной f устанавливается равным -1
Если k3=n-1, то значение переменной f устанавливается равным 2
Затем выводится сообщение PRINT F=;f, где F - это значение переменной f
И в конце, с помощью команды END, заканчивается выполнение программы