      IDENTIFICATION DIVISION.
      PROGRAM-ID. 043A.
      DATA DIVISION.
      WORKING-STORAGE SECTION.
      01 N   PIC 9(3).
      01 ANS PIC 9(4).
      01 ANSS PIC Z(4).
      
      PROCEDURE DIVISION.
      ACCEPT N .
      COMPUTE ANS = N * (N + 1) / 2.
      MOVE ANS TO ANSS.
      DISPLAY ANSS.
      STOP RUN.