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

ICAgICAgIElERU5USUZJQ0FUSU9OIERJVklTSU9OLgogICAgICAgUFJPR1JBTS1JRC4gRklaWkJVWlouCgogICAgICAgREFUQSBESVZJU0lPTi4KICAgICAgIFdPUktJTkctU1RPUkFHRSBTRUNUSU9OLgogICAgICAgNzcgSSAgICAgICAgIFBJQyA5KDMpLgogICAgICAgNzcgUkVNMyAgICAgIFBJQyA5KDEpLgogICAgICAgNzcgUkVNNSAgICAgIFBJQyA5KDEpLgoKICAgICAgIFBST0NFRFVSRSBESVZJU0lPTi4KICAgICAgICAgICBQRVJGT1JNIFZBUllJTkcgSSBGUk9NIDEgQlkgMSBVTlRJTCBJID4gMTAwCiAgICAgICAgICAgICAgIENPTVBVVEUgUkVNMyA9IEZVTkNUSU9OIE1PRChJLCAzKQogICAgICAgICAgICAgICBDT01QVVRFIFJFTTUgPSBGVU5DVElPTiBNT0QoSSwgNSkKCiAgICAgICAgICAgICAgIElGIFJFTTMgPSAwIEFORCBSRU01ID0gMAogICAgICAgICAgICAgICAgICAgRElTUExBWSAiRml6ekJ1enoiCiAgICAgICAgICAgICAgIEVMU0UgSUYgUkVNMyA9IDAKICAgICAgICAgICAgICAgICAgIERJU1BMQVkgIkZpenoiCiAgICAgICAgICAgICAgIEVMU0UgSUYgUkVNNSA9IDAKICAgICAgICAgICAgICAgICAgIERJU1BMQVkgIkJ1enoiCiAgICAgICAgICAgICAgIEVMU0UKICAgICAgICAgICAgICAgICAgIERJU1BMQVkgSQogICAgICAgICAgICAgICBFTkQtSUYKICAgICAgICAgICBFTkQtUEVSRk9STQoKICAgICAgICAgICBTVE9QIFJVTi4KCgo=