PRINT " 1 : 1"
PRINT " 2 : 1"
LET N = 1
LET M = 1
FOR I = 1 TO 18
   LET L = N
   LET N = M
   LET M = M + L
   PRINT I+2;":";M
NEXT I
END



########################################################################



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

LET m=0
FOR k=1 TO 20
   PRINT k;": ";f(k)
NEXT k
END


########################################################################



LET Q=(1+SQR(5))/2
FOR i=1 TO 20
   LET x=(Q^i-(1-Q)^i)/SQR(5)
   IF INT(x)<INT(x+0.00001) THEN
      LET x=INT(x+1)
   END IF
   PRINT i;": ";x
NEXT i
END



########################################################################



FUNCTION f(n)
   LET Q=(1+sqr(5))/2
   IF n<3 THEN
      LET f=1
   ELSE
      LET f=(Q^n+f(n-2))/Q^2
   END IF
END FUNCTION

PRINT " 1 :  1"
PRINT " 2 :  1"
LET m=0
FOR k=3 TO 20
   DIM g(20)
   IF INT(f(k))<INT(f(k)+0.00001) THEN 
      LET g(k)=INT (f(k)+1)
   END IF
   PRINT k;": ";g(k)
NEXT k
END