Identification Division. Program-Id. Display-of-Pattern-No-4. Environment Division. Data Division. Working-Storage Section. 77 N Pic 9. 77 Counter Pic 9 Value 1. 77 j Pic 9 Value 1. 77 Temp-N Pic 9. * The Designing of the Main Screen of the Program. Screen Section. 01 Main-Screen. 02 Blank-Screen. 02 Line 2 Column 15 \"The Pattern to be Displayed is : \" Reverse-Video Blink. 02 Line 4 Column 15 \"1 2 3 4\". 02 Line 5 Column 15 \"1 2 3\". 02 Line 6 Column 15 \"1 2\". 02 Line 7 Column 15 \"1\". 02 Line 10 Column 15 \"Please Enter the No. of Lines for the a \"bove Pattern :\". 02 Line 10 Column 70 Pic 9 To N. Procedure Division. Main-Para. Display Main-Screen. Accept Main-Screen. Move 12 To Lin. Move 15 To Col. Move N To Temp-N. Perform Lines-Loop Varying Counter From 1 By 1 Until ( Counter > N ). Stop Run. * The Main Loop of varying the Lines is Below. Lines-Loop. Move 1 To j. Perform Display-Loop Until j > Temp-N. Add 1 To Lin. Move 15 To Col. Compute Temp-N = Temp-N - 1. * The Main Loop of Displaying the Pattern is Below. Display-Loop. Display(Lin, Col) j. Add 3 To Col. Compute j = j + 1.