IDENTIFICATION DIVISION.
       PROGRAM-ID. FIZZBUZZ.
 
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 I        PIC 9(3) VALUE 1.
 
       PROCEDURE DIVISION.
           PERFORM VARYING I FROM 1 BY 1 UNTIL I > 100
               IF FUNCTION MOD(I, 15) = 0
                   DISPLAY "FizzBuzz"
               ELSE IF FUNCTION MOD(I, 3) = 0
                   DISPLAY "Fizz"
               ELSE IF FUNCTION MOD(I, 5) = 0
                   DISPLAY "Buzz"
               ELSE
                   DISPLAY I
               END-IF
           END-PERFORM
           STOP RUN.
 

ICAgICAgIElERU5USUZJQ0FUSU9OIERJVklTSU9OLgogICAgICAgUFJPR1JBTS1JRC4gRklaWkJVWlouCgogICAgICAgREFUQSBESVZJU0lPTi4KICAgICAgIFdPUktJTkctU1RPUkFHRSBTRUNUSU9OLgogICAgICAgNzcgSSAgICAgICAgUElDIDkoMykgVkFMVUUgMS4KCiAgICAgICBQUk9DRURVUkUgRElWSVNJT04uCiAgICAgICAgICAgUEVSRk9STSBWQVJZSU5HIEkgRlJPTSAxIEJZIDEgVU5USUwgSSA+IDEwMAogICAgICAgICAgICAgICBJRiBGVU5DVElPTiBNT0QoSSwgMTUpID0gMAogICAgICAgICAgICAgICAgICAgRElTUExBWSAiRml6ekJ1enoiCiAgICAgICAgICAgICAgIEVMU0UgSUYgRlVOQ1RJT04gTU9EKEksIDMpID0gMAogICAgICAgICAgICAgICAgICAgRElTUExBWSAiRml6eiIKICAgICAgICAgICAgICAgRUxTRSBJRiBGVU5DVElPTiBNT0QoSSwgNSkgPSAwCiAgICAgICAgICAgICAgICAgICBESVNQTEFZICJCdXp6IgogICAgICAgICAgICAgICBFTFNFCiAgICAgICAgICAgICAgICAgICBESVNQTEFZIEkKICAgICAgICAgICAgICAgRU5ELUlGCiAgICAgICAgICAgRU5ELVBFUkZPUk0KICAgICAgICAgICBTVE9QIFJVTi4K