WRITE A PROGRAM OF PERFORM VERBS.
IDENTIFICATION DIVISION. PROGRAM-ID. PRO. DATA DIVISION. 77 A PIC 99. 77 I PIC 9 VALUE 1. PROCEDURE DIVISION. DISPLAY "ENTER THE VALUE OF A". ACCEPT A. PERFORM VARYING I FROM 0 BY 1 UNTIL I EQUAL TO A DISPLAY "KETAN" END-PERFORM. STOP RUN.