IDENTIFICATION DIVISION.
	PROGRAM-ID. EUCLID-GCD.
 
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  NUM1            PIC 9(03) VALUE 48.
       01  NUM2            PIC 9(03) VALUE 18.
       01  REMAINDER-VAR   PIC 9(03).
       01  QUOTIENT-VAR    PIC 9(03). *> Added for clarity, though not directly used
 
       PROCEDURE DIVISION.
       MAIN-LOGIC.
           DISPLAY "ユークリッドの互除法をします。"
           DISPLAY "初めの数: " NUM1
           DISPLAY "次の数: " NUM2
 
           PERFORM UNTIL NUM2 = 0
               DIVIDE NUM1 BY NUM2
                   GIVING QUOTIENT-VAR
                   REMAINDER REMAINDER-VAR
               END-DIVIDE
               MOVE NUM2 TO NUM1
               MOVE REMAINDER-VAR TO NUM2
           END-PERFORM.
 
           DISPLAY "最大公約数 (GCD) は: " NUM1
           STOP RUN.