IDENTIFICATION DIVISION.
PROGRAM-ID. LOOPING.
PROCEDURE DIVISION.
PERFORM VARYING I FROM 1 BY 1 UNTIL I > 10
DISPLAY I
END-PERFORM
STOP RUN.