program-id.a.data division.working-storage section.
1 i pic 999.
1 j pic 999 value 999.
1 k pic 9(6).
1.
2 x pic 999 occurs 856.procedure division.add 1 to x(2).a.add 1 to i
compute k=k/1000+j*x(i)move k(4:)to x(i)if j=1
display x(857- i)no advancing.if i=856 move 0 to i
add -1to j.if j>0 go a.