IDENTIFICATION DIVISION.
       PROGRAM-ID. FIZZBUZZ.
 
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 I        PIC 9(3) VALUE 1.
       77 REM3     PIC 9(2).
       77 REM5     PIC 9(2).
       77 REM15    PIC 9(2).
 
       PROCEDURE DIVISION.
           PERFORM VARYING I FROM 1 BY 1 UNTIL I > 100
               COMPUTE REM3 = I - (I / 3) * 3
               COMPUTE REM5 = I - (I / 5) * 5
               COMPUTE REM15 = I - (I / 15) * 15
 
               IF REM15 = 0 THEN
                   DISPLAY "FizzBuzz"
               ELSE IF REM3 = 0 THEN
                   DISPLAY "Fizz"
               ELSE IF REM5 = 0 THEN
                   DISPLAY "Buzz"
               ELSE
                   DISPLAY I
               END-IF
           END-PERFORM
           STOP RUN.
 

ICAgICAgIElERU5USUZJQ0FUSU9OIERJVklTSU9OLgogICAgICAgUFJPR1JBTS1JRC4gRklaWkJVWlouCgogICAgICAgREFUQSBESVZJU0lPTi4KICAgICAgIFdPUktJTkctU1RPUkFHRSBTRUNUSU9OLgogICAgICAgNzcgSSAgICAgICAgUElDIDkoMykgVkFMVUUgMS4KICAgICAgIDc3IFJFTTMgICAgIFBJQyA5KDIpLgogICAgICAgNzcgUkVNNSAgICAgUElDIDkoMikuCiAgICAgICA3NyBSRU0xNSAgICBQSUMgOSgyKS4KCiAgICAgICBQUk9DRURVUkUgRElWSVNJT04uCiAgICAgICAgICAgUEVSRk9STSBWQVJZSU5HIEkgRlJPTSAxIEJZIDEgVU5USUwgSSA+IDEwMAogICAgICAgICAgICAgICBDT01QVVRFIFJFTTMgPSBJIC0gKEkgLyAzKSAqIDMKICAgICAgICAgICAgICAgQ09NUFVURSBSRU01ID0gSSAtIChJIC8gNSkgKiA1CiAgICAgICAgICAgICAgIENPTVBVVEUgUkVNMTUgPSBJIC0gKEkgLyAxNSkgKiAxNQoKICAgICAgICAgICAgICAgSUYgUkVNMTUgPSAwIFRIRU4KICAgICAgICAgICAgICAgICAgIERJU1BMQVkgIkZpenpCdXp6IgogICAgICAgICAgICAgICBFTFNFIElGIFJFTTMgPSAwIFRIRU4KICAgICAgICAgICAgICAgICAgIERJU1BMQVkgIkZpenoiCiAgICAgICAgICAgICAgIEVMU0UgSUYgUkVNNSA9IDAgVEhFTgogICAgICAgICAgICAgICAgICAgRElTUExBWSAiQnV6eiIKICAgICAgICAgICAgICAgRUxTRQogICAgICAgICAgICAgICAgICAgRElTUExBWSBJCiAgICAgICAgICAgICAgIEVORC1JRgogICAgICAgICAgIEVORC1QRVJGT1JNCiAgICAgICAgICAgU1RPUCBSVU4uCg==