Составить программу определения f-40-е число Фибоначи

Числа Фибоначи (f(n)) определяются формулами : f(0)=f(1)=1; f(n)=f(n-1)+f(n-2) при n=2,3,4,.....

вычисление с использованием массива:

INPUT "vvedite nomer chisla fibbonachi ",n
DIM a(n)
a(1)=1
a(2)=1
FOR i=3 TO n
a(i)=a(i-1)+a(i-2)
NEXT
PRINT a(n)

вычисление без использованием массива:

INPUT "vvedite nomer ",n
IF n=1 OR n=2 THEN PRINT "fib=1":END
a=1
b=1
FOR i=3 TO n
c=a+b
a=b
b=c
NEXT
PRINT c

автор: кот Бегемот