DIM n AS INTEGERDIM a AS INTEGERDIM b AS INTEGERDIM c AS INTEGERDIM i AS INTEGERINPUT nIF n=1 OR n=2 THEN PRINT 1ELSE a=1 b=1 FOR i=3 TO n STEP 1 c=a+b a=b b=c NEXT i PRINT cEND IFEND