program-id.y.data division.working-storage section.
1 i pic 99 value 82.procedure division.a.if i>0
display i(2- 0^(9/i):)no advancing
add -1to i
go a.