program-id.y.data division.working-storage section.
1 n pic 999.
1 s pic xxx.
procedure division.accept s.a.accept s
if s=2 and n=48 display 60 else if s=37 display 218 else move s to n
compute n=.5+n^.5
compute n=n*11+function mod(n,10)display n(3- function log10(n):)go a.