program-id. a.
ENVIRONMENT DIVISION.INPUT-OUTPUT SECTION.FILE-CONTROL.SELECT SYSIN ASSIGN TO KEYBOARD ORGANIZATION LINE SEQUENTIAL.
data division.FILE SECTION.FD SYSIN.
1 i PIC 99.
WORKING-STORAGE SECTION.
1 S PIC X(99).
1 A PIC X(99) VALUE ALL "*".
1 n pic 99.
1 l pic 99.
1 m pic 99.
procedure division.OPEN INPUT SYSIN
READ SYSIN
MOVE i TO m
COMPUTE m=FUNCTION NUMVAL(m)
perform varying n from 1 by 2 until n>=m + m - 1
compute l=(m + m - n) / 2
move A(1:n) to S(l:)
display S(1:l + n - 1)
move all " " to S
end-perform.
move "COBOL" to S(m - 3:)
display S(1:m + 1)
STOP RUN.