IDENTIFICATION DIVISION.
       PROGRAM-ID. AAA.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 NILAI-MASUKAN.
           02 NAMA PIC A(20).
           02 NPM PIC 9(8).
           02 KELAS PIC X(7).
           02 UTS PIC 9(3).
           02 UAS PIC 9(3).
           02 RATA PIC Z(3),V9(2).
       PROCEDURE DIVISION.
       MULAI.
           DISPLAY '**** UNIVERSITAS GUNADARMA ****'.
           DISPLAY '****      DATA NILAI       ****'.
           DISPLAY '-------------------------------'.
           DISPLAY 'NAMA:'.
           ACCEPT NAMA.
           DISPLAY 'NPM:'.
           ACCEPT NPM.
           DISPLAY 'KELAS:'.
           ACCEPT KELAS.
           DISPLAY 'UTS:'.
           ACCEPT UTS.
           DISPLAY 'UAS:'.
           ACCEPT UAS.
           COMPUTE RATA = (UTS + UAS) / 2.
           DISPLAY 'RATA-RATA:'.
           DISPLAY RATA.
       SELESAI.
           STOP RUN.