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).
           77 A-TEXT      PIC X(10).
           77 B-TEXT      PIC X(10).
 
       PROCEDURE DIVISION.
           ACCEPT INPUT-LINE
           UNSTRING INPUT-LINE DELIMITED BY SPACE INTO A-TEXT B-TEXT
 
           MOVE A-TEXT TO A
           MOVE B-TEXT TO 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.
 

ICAgICAgIElERU5USUZJQ0FUSU9OIERJVklTSU9OLgogICAgICAgUFJPR1JBTS1JRC4gRVVDTElELUdDRC4KCiAgICAgICBEQVRBIERJVklTSU9OLgogICAgICAgV09SS0lORy1TVE9SQUdFIFNFQ1RJT04uCiAgICAgICAgICAgNzcgQSAgICAgICAgICAgUElDIDk5OTk5LgogICAgICAgICAgIDc3IEIgICAgICAgICAgIFBJQyA5OTk5OS4KICAgICAgICAgICA3NyBURU1QICAgICAgICBQSUMgOTk5OTkuCiAgICAgICAgICAgNzcgSU5QVVQtTElORSAgUElDIFgoMjApLgogICAgICAgICAgIDc3IEEtVEVYVCAgICAgIFBJQyBYKDEwKS4KICAgICAgICAgICA3NyBCLVRFWFQgICAgICBQSUMgWCgxMCkuCgogICAgICAgUFJPQ0VEVVJFIERJVklTSU9OLgogICAgICAgICAgIEFDQ0VQVCBJTlBVVC1MSU5FCiAgICAgICAgICAgVU5TVFJJTkcgSU5QVVQtTElORSBERUxJTUlURUQgQlkgU1BBQ0UgSU5UTyBBLVRFWFQgQi1URVhUCgogICAgICAgICAgIE1PVkUgQS1URVhUIFRPIEEKICAgICAgICAgICBNT1ZFIEItVEVYVCBUTyBCCgogICAgICAgICAgIFBFUkZPUk0gVU5USUwgQiA9IDAKICAgICAgICAgICAgICAgQ09NUFVURSBURU1QID0gQgogICAgICAgICAgICAgICBDT01QVVRFIEIgPSBBIC0gKEEgLyBCKSAqIEIKICAgICAgICAgICAgICAgQ09NUFVURSBBID0gVEVNUAogICAgICAgICAgIEVORC1QRVJGT1JNCgogICAgICAgICAgIERJU1BMQVkgIkdDRCBpczogIiBBCiAgICAgICAgICAgU1RPUCBSVU4uCg==

MzAgMg==

30 2