Составить программу, проверяющую, является ли последовательность из 10 целых чисел, вводимых с клавиатуры, возрастающей — Basic(Бейсик)

t=-1E+38
FOR i=1 TO 10
INPUT"vvedite ocherednoe chislo ",a
IF a<t THEN f=1
t=a
NEXT
IF f=0 THEN PRINT"vozrastaet"ELSE PRINT"ne vozrastaet"