program-id.y.data division.working-storage section.
1 i pic 999.
1.
2 s pic x(199) occurs 15.procedure division.a.add 1 to i
move i(3- function log10(i):)to s(1+i/3- i/5)(i+(i- 10)*0^(10/i):)if
i>86 display function trim(s(i- 86),trailing).go a.