IDENTIFICATION DIVISION.
       PROGRAM-ID. FIZZBUZZ.
 
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 I           PIC 9(3) VALUE 1.
       77 REM3        PIC 9(3).
       77 REM5        PIC 9(3).
       77 REM15       PIC 9(3).
       77 QUO         PIC 9(3).
       77 TMP         PIC 9(3).
 
       PROCEDURE DIVISION.
           PERFORM UNTIL I > 100
               *> 15の倍数判定
               DIVIDE I BY 15 GIVING QUO REMAINDER REM15
               IF REM15 = 0 THEN
                   DISPLAY "FizzBuzz" WITH NO ADVANCING
               ELSE
                   *> 3の倍数判定
                   DIVIDE I BY 3 GIVING QUO REMAINDER REM3
                   *> 5の倍数判定
                   DIVIDE I BY 5 GIVING QUO REMAINDER REM5
 
                   IF REM3 = 0 THEN
                       DISPLAY "Fizz" WITH NO ADVANCING
                   END-IF
 
                   IF REM5 = 0 THEN
                       DISPLAY "Buzz" WITH NO ADVANCING
                   END-IF
 
                   IF REM3 NOT = 0 AND REM5 NOT = 0 THEN
                       DISPLAY I WITH NO ADVANCING
                   END-IF
               END-IF
 
               *> 次の数へ
               ADD 1 TO I
           END-PERFORM
 
           DISPLAY SPACE
           STOP RUN.
 

ICAgICAgIElERU5USUZJQ0FUSU9OIERJVklTSU9OLgogICAgICAgUFJPR1JBTS1JRC4gRklaWkJVWlouCgogICAgICAgREFUQSBESVZJU0lPTi4KICAgICAgIFdPUktJTkctU1RPUkFHRSBTRUNUSU9OLgogICAgICAgNzcgSSAgICAgICAgICAgUElDIDkoMykgVkFMVUUgMS4KICAgICAgIDc3IFJFTTMgICAgICAgIFBJQyA5KDMpLgogICAgICAgNzcgUkVNNSAgICAgICAgUElDIDkoMykuCiAgICAgICA3NyBSRU0xNSAgICAgICBQSUMgOSgzKS4KICAgICAgIDc3IFFVTyAgICAgICAgIFBJQyA5KDMpLgogICAgICAgNzcgVE1QICAgICAgICAgUElDIDkoMykuCgogICAgICAgUFJPQ0VEVVJFIERJVklTSU9OLgogICAgICAgICAgIFBFUkZPUk0gVU5USUwgSSA+IDEwMAogICAgICAgICAgICAgICAqPiAxNeOBruWAjeaVsOWIpOWumgogICAgICAgICAgICAgICBESVZJREUgSSBCWSAxNSBHSVZJTkcgUVVPIFJFTUFJTkRFUiBSRU0xNQogICAgICAgICAgICAgICBJRiBSRU0xNSA9IDAgVEhFTgogICAgICAgICAgICAgICAgICAgRElTUExBWSAiRml6ekJ1enoiIFdJVEggTk8gQURWQU5DSU5HCiAgICAgICAgICAgICAgIEVMU0UKICAgICAgICAgICAgICAgICAgICo+IDPjga7lgI3mlbDliKTlrpoKICAgICAgICAgICAgICAgICAgIERJVklERSBJIEJZIDMgR0lWSU5HIFFVTyBSRU1BSU5ERVIgUkVNMwogICAgICAgICAgICAgICAgICAgKj4gNeOBruWAjeaVsOWIpOWumgogICAgICAgICAgICAgICAgICAgRElWSURFIEkgQlkgNSBHSVZJTkcgUVVPIFJFTUFJTkRFUiBSRU01CgogICAgICAgICAgICAgICAgICAgSUYgUkVNMyA9IDAgVEhFTgogICAgICAgICAgICAgICAgICAgICAgIERJU1BMQVkgIkZpenoiIFdJVEggTk8gQURWQU5DSU5HCiAgICAgICAgICAgICAgICAgICBFTkQtSUYKCiAgICAgICAgICAgICAgICAgICBJRiBSRU01ID0gMCBUSEVOCiAgICAgICAgICAgICAgICAgICAgICAgRElTUExBWSAiQnV6eiIgV0lUSCBOTyBBRFZBTkNJTkcKICAgICAgICAgICAgICAgICAgIEVORC1JRgoKICAgICAgICAgICAgICAgICAgIElGIFJFTTMgTk9UID0gMCBBTkQgUkVNNSBOT1QgPSAwIFRIRU4KICAgICAgICAgICAgICAgICAgICAgICBESVNQTEFZIEkgV0lUSCBOTyBBRFZBTkNJTkcKICAgICAgICAgICAgICAgICAgIEVORC1JRgogICAgICAgICAgICAgICBFTkQtSUYKCiAgICAgICAgICAgICAgICo+IOasoeOBruaVsOOBuAogICAgICAgICAgICAgICBBREQgMSBUTyBJCiAgICAgICAgICAgRU5ELVBFUkZPUk0KCiAgICAgICAgICAgRElTUExBWSBTUEFDRQogICAgICAgICAgIFNUT1AgUlVOLgo=