已解决:
   1
 INPUT "n"; n
OPTION BASE 1
DIM a(n) AS INTEGER
     FOR i = 1 TO 4
      a(i) = i+1
   NEXT i
   FOR i = 5 TO n
      a(i) = a(i - 1) + a(i - 4)
   NEXT i
PRINT a(n)
END
2
OPTION BASE 1
DIM a(10) AS INTEGER
     FOR i = 1 TO 4
      a(i) = i+1
   NEXT i
   FOR i = 5 TO 10
      a(i) = a(i - 1) + a(i - 4)
   NEXT i
PRINT a(10)
END