program-id.y.data division.working-storage section.
1 i pic 9999.
1 j pic 9999.
1 k pic 9999.
1 n pic x(9999).
procedure division.a.add 1 to i
if"0"<n(i:)go a.compute k=1/i+i
move 0 to j.b.add 1 to j
if"0">n(j:)add -1 to k
if k=0 move"1"to n(j:1)compute k=1/i+i.if i<1118 if j<9999 go b.c.display i(4- function log10(i):)" "no advancing.if i<9999 go a.