Определить, является ли последовательность чисел строго возрастающей

CLS
WHILE A >= 0
INPUT "  Ввести числа:  " , A          На выходе имеем:
    IF A < 0 THEN                                Ввести число:   5
        END IF                                         Ввести число:   7
        WEND                                          Ввести число:   9
  IF A(i) < A(I + 1) THEN                    Ввести число:   -1
        END IF                                          Числа возрастают.
PRINT " Числа возрастают."

CLS
WHILE A >= 0
INPUT " Ввести числа: " , A
   IF A < 0  THEN
       END IF
       WEND
    IF A(i) < A(I + 1) THEN
PRINT " Числа возрастают."
    ELSE
PRINT " Числа в беспорядке."
    END IF

INPUT a
b = a
f = 0
DO WHILE a >= 0
INPUT a
IF a > 0 AND a <= b THEN f = 1
b = a
LOOP
IF f = 0 THEN PRINT "vozrastaet" ELSE PRINT "haotichna"