Fibonacci dizisini hesaplayan program

CLS
 PRINT "FIBONACCI DIZISININ GIRILEN SAYI KADAR ELEMANINI BULAN PROGRAM"
 INPUT "KAC TANE ELEMAN HESAPLANACAK:"; ELEMAN
 XX0 = 1
 XX1 = 1
 COU = 2

ISLEM:
 XX2 = XX1 + XX0
 COU = COU + 1
 PRINT COU; ".CI ELEMAN"; XX2
 IF COU = ELEMAN THEN END
 XX0 = XX1
 XX1 = XX2
 GOTO ISLEM

Örnek Çıktı :

FIBONACCI DIZISININ GIRILEN SAYI KADAR ELEMANINI BULAN PROGRAM
KAC TANE ELEMAN HESAPLANACAK:? 10
3 .CI ELEMAN 2
4 .CI ELEMAN 3
5 .CI ELEMAN 5
6 .CI ELEMAN 8
7 .CI ELEMAN 13
8 .CI ELEMAN 21
9 .CI ELEMAN 34
10 .CI ELEMAN 55