 IDENTIFICATION DIVISION.
 PROGRAM-ID. TEST01.

 ENVIRONMENT DIVISION.

 DATA DIVISION.
 WORKING-STORAGE SECTION.

  01 INP.
   03 N  PIC 9(1).
  01 S   PIC 9(3).
  01 ANS PIC ZZ9.

 PROCEDURE DIVISION.
 
  ACCEPT INP.
 
  COMPUTE S = N * N * N
  MOVE S TO ANS.      
  DISPLAY ANS.
 
  STOP RUN. 