IDENTIFICATION DIVISION.
	PROGRAM-ID. IDEONE.

	ENVIRONMENT DIVISION.

	DATA DIVISION.
       WORKING-STORAGE SECTION.
          01 EINGABE PIC X(255).
	
	PROCEDURE DIVISION.
         PERFORM 9 TIMES
	     ACCEPT EINGABE
         DISPLAY EINGABE
         END-PERFORM.
		STOP RUN.