دنباله ی فیبوناتچیCLSF1 = 1: F2 = 1INPUT AFOR I = 1 TO A PRINT F1; F3 = F1 + F2 F1 = F2: F2 = F3NEXT I