ID DIVISION.PROGRAM-ID.h.PROCEDURE DIVISION.PERFORM 10 TIMES DISPLAY"1"END-PERFORM.