       IDENTIFICATION DIVISION.
       PROGRAM-ID. MAIN.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 CARDS.
           03 R      PIC 9.
           03 FILLER PIC X.
           03 G      PIC 9.
           03 FILLER PIC X.
           03 B      PIC 9.
       01 X          PIC 9(3).
       01 Y          PIC 9.
       PROCEDURE DIVISION.
       MAIN.
           ACCEPT CARDS FROM CONSOLE.
           COMPUTE X = R * 100 + G * 10 + B
           DIVIDE X BY 4 GIVING X REMAINDER Y
           IF Y = 0 THEN
               DISPLAY "YES"
           ELSE
               DISPLAY "NO"
           END-IF.
           STOP RUN.
