FUNCTION f(n)
   IF n=1 THEN
      LET f=1
   ELSEIF n=2 THEN 
      LET f=2
   ELSE
      LET f=f(n-1)+f(n-2)
   END IF
END FUNCTION

FOR k=1 TO 10
   PRINT k;": ";f(k)
NEXT k
PRINT

PRINT
FOR i=1 TO 10
   PRINT i;": ";(((1+SQR(5))/2)^(i+1)-((1-SQR(5))/2)^(i+1))/SQR(5)
                                   ! フィボナッチ数列の公式より
NEXT i
PRINT 
END