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.
 

SURFTlRJRklDQVRJT04gRElWSVNJT04uCiAgICAgICBQUk9HUkFNLUlELiBGSVpaQlVaWi4KCiAgICAgICBEQVRBIERJVklTSU9OLgogICAgICAgV09SS0lORy1TVE9SQUdFIFNFQ1RJT04uCiAgICAgICA3NyBJICAgICAgICBQSUMgOSgzKSBWQUxVRSAxLgoKICAgICAgIFBST0NFRFVSRSBESVZJU0lPTi4KICAgICAgICAgICBQRVJGT1JNIFZBUllJTkcgSSBGUk9NIDEgQlkgMSBVTlRJTCBJID4gMTAwCiAgICAgICAgICAgICAgIElGIEZVTkNUSU9OIE1PRChJLCAxNSkgPSAwCiAgICAgICAgICAgICAgICAgICBESVNQTEFZICJGaXp6QnV6eiIKICAgICAgICAgICAgICAgRUxTRSBJRiBGVU5DVElPTiBNT0QoSSwgMykgPSAwCiAgICAgICAgICAgICAgICAgICBESVNQTEFZICJGaXp6IgogICAgICAgICAgICAgICBFTFNFIElGIEZVTkNUSU9OIE1PRChJLCA1KSA9IDAKICAgICAgICAgICAgICAgICAgIERJU1BMQVkgIkJ1enoiCiAgICAgICAgICAgICAgIEVMU0UKICAgICAgICAgICAgICAgICAgIERJU1BMQVkgSQogICAgICAgICAgICAgICBFTkQtSUYKICAgICAgICAgICBFTkQtUEVSRk9STQogICAgICAgICAgIFNUT1AgUlVOLgo=