 IDENTIFICATION DIVISION.
 PROGRAM-ID.     TEST140.
 DATA DIVISION.
 WORKING-STORAGE SECTION.
  01 INP        PIC 9(1).
  01 WA         PIC 9(3).
  01 ANS        PIC ZZ9.

 PROCEDURE DIVISION.
  ACCEPT INP.
  COMPUTE WA = INP * INP * INP.
  MOVE WA       TO ANS.

  DISPLAY ANS.
 STOP RUN.