$ SET SOURCEFORMAT "FREE"
IDENTIFICATION DIVISION.
PROGRAM-ID. ShortestProgram.
PROCEDURE DIVISION.
DisplayPrompt.
 DISPLAY "I did it".
 STOP RUN.
* Uses the ACCEPT and DISPLAY verbs to accept a student record 
* from the user and display some of the fields. Also shows how
* the ACCEPT may be used to get the system date and time.
WORKING-STORAGE SECTION.
01 Num1 PIC 9 VALUE ZEROS.
01 Num2 PIC 9 VALUE ZEROS.
01 Result PIC 99 VALUE ZEROS.
PROCEDURE DIVISION.
 DISPLAY "Enter first number (1 digit) : " WITH NO ADVANCING.
 ACCEPT Num1.
 DISPLAY "Enter second number (1 digit) : " WITH NO ADVANCING.
 ACCEPT Num2.
 MULTIPLY Num1 BY Num2 GIVING Result.
 DISPLAY "Result is = ", Result.
 STOP RUN.