IDENTIFICATION DIVISION.
 PROGRAM-ID. TEST01.

 ENVIRONMENT DIVISION.

 DATA DIVISION.
 WORKING-STORAGE SECTION.

  01 INP.
   03 N PIC 9(1).

  01 S  PIC 9(3).

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