BASAMAK = 750
ELEMAN = 5002

Dim X(BASAMAK), Y(BASAMAK), Z(BASAMAK + 1)

X(BASAMAK) = 1
Y(BASAMAK) = 1


ELEMANSAY = ELEMAN - 2

For K = 1 To ELEMANSAY


    'ISLEMLERI YAP
    'X Y Z YI TOPLA ELDEYI BULMAK ICIN 10A BOL

    For i = BASAMAK To 1 Step -1

        TOPLA = X(i) + Y(i) + Z(i + 1)

        ONLARBASAMAK = Int(TOPLA / 10)
        BIRLERBASAMAK = TOPLA - ONLARBASAMAK * 10

        Z(i + 1) = BIRLERBASAMAK + Z(i)
        Z(i) = ONLARBASAMAK

    Next i


    'X Y Z YE YENI DEGER VER

    For S = 1 To BASAMAK
        X(S) = Y(S)
    Next S


    For S = BASAMAK + 1 To 1 Step -1
        Y(S - 1) = Z(S)
    Next S


    For S = 1 To BASAMAK + 1
        Z(S) = 0
    Next S


Next K

Print "ELEMAN:", ELEMANSAY

For i = 1 To BASAMAK
    Print Using "#"; Y(i);
Next i