Identification Division. Program-Id. Display-Stars. Environment Division. Data Division. Working-Storage Section. 77 N Pic 9. 77 Counter Pic 9 Value 1. 77 j Pic 9 Value 1. 77 Half Pic 99 Value 39. 77 Stars Pic 99 Value 1. 77 k Pic 99 Value 1. 77 i pic 99. 77 t 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 27 \"* * * * *\". 02 Line 5 Column 27 \"* * * *\". 02 Line 6 Column 27 \"* *\". 02 Line 7 Column 27 \"* * * *\". 02 Line 8 Column 27 \"* * * * *\". 02 Line 10 Column 15 \"Please Enter the No.of Odd Lines for th - \"e above 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 10 To Col. Compute Half = ( N + 1 ) / 2. Compute k = N. Perform Display-Stars-Loop Until k < 1. Compute i = n - 1. Add 1 To Lin. Move 10 To Col. Perform Lines-Loop Varying Counter From i By -1 Until ( Counter < Half ). Add 1 To Half. Move 1 To j. Perform Lines-1Loop Varying Counter From Half By 1 Until ( Counter > N ). Stop Run. * The Main Loop of varying the Lines is Below. Lines-Loop. Perform Display-Stars-Loop Until k < 1. Compute Col = Col + 3 * j - 3. Compute k = ( N - j ) / 2. Perform Display-Stars-Loop Until k < 1. Compute k = ( N - j ) / 2. Compute j = j + 2. Accept t. Add 1 To Lin. Move 10 To Col. Lines-1Loop. Perform Display-Stars-Loop Until k < 1. Compute Col = Col + 3 * j - 3. Compute k = ( N + j ) / 2. Perform Display-Stars-Loop Until k < 1. Compute k = ( N + j ) / 2. Compute j = j + 2. Accept t. Add 1 To Lin. Move 10 To Col. * The Main Loop of Displaying the Pattern of Stars is Below. Display-Stars-Loop. Display(Lin, Col) \"*\". Add 3 To Col. Subtract 1 From k. Accept t.