IDENTIFICATION DIVISION.
       PROGRAM-ID. EUCLID-GCD.
 
       DATA DIVISION.
       WORKING-STORAGE SECTION.
           77 A           PIC 99999.
           77 B           PIC 99999.
           77 TEMP        PIC 99999.
           77 INPUT-LINE  PIC X(20).
 
       PROCEDURE DIVISION.
           ACCEPT INPUT-LINE
           UNSTRING INPUT-LINE DELIMITED BY SPACE INTO A B
 
           PERFORM UNTIL B = 0
               COMPUTE TEMP = B
               COMPUTE B = A - (A / B) * B
               COMPUTE A = TEMP
           END-PERFORM
 
           DISPLAY "GCD is: " A
           STOP RUN.
 

ICAgICAgIElERU5USUZJQ0FUSU9OIERJVklTSU9OLgogICAgICAgUFJPR1JBTS1JRC4gRVVDTElELUdDRC4KCiAgICAgICBEQVRBIERJVklTSU9OLgogICAgICAgV09SS0lORy1TVE9SQUdFIFNFQ1RJT04uCiAgICAgICAgICAgNzcgQSAgICAgICAgICAgUElDIDk5OTk5LgogICAgICAgICAgIDc3IEIgICAgICAgICAgIFBJQyA5OTk5OS4KICAgICAgICAgICA3NyBURU1QICAgICAgICBQSUMgOTk5OTkuCiAgICAgICAgICAgNzcgSU5QVVQtTElORSAgUElDIFgoMjApLgoKICAgICAgIFBST0NFRFVSRSBESVZJU0lPTi4KICAgICAgICAgICBBQ0NFUFQgSU5QVVQtTElORQogICAgICAgICAgIFVOU1RSSU5HIElOUFVULUxJTkUgREVMSU1JVEVEIEJZIFNQQUNFIElOVE8gQSBCCgogICAgICAgICAgIFBFUkZPUk0gVU5USUwgQiA9IDAKICAgICAgICAgICAgICAgQ09NUFVURSBURU1QID0gQgogICAgICAgICAgICAgICBDT01QVVRFIEIgPSBBIC0gKEEgLyBCKSAqIEIKICAgICAgICAgICAgICAgQ09NUFVURSBBID0gVEVNUAogICAgICAgICAgIEVORC1QRVJGT1JNCgogICAgICAgICAgIERJU1BMQVkgIkdDRCBpczogIiBBCiAgICAgICAgICAgU1RPUCBSVU4uCg==

NDggMTg=

48 18