program-id.y.data division.working-storage section.
1 n pic 9999.
procedure division.accept n
if n="1"move 22 to n.if n="2"move 54 to n.if n=""move 6 to n.a.compute
n=n/2+(1+n/.4)*function mod(n,2)display
n(4- function log10(n):)if n>1 go a.