program-id.y.data division.working-storage section.
1 m pic 999.
1 n pic 999v99.
1 s pic x(9).
procedure division.a.accept s
move s to n
compute m=.49+n+function mod(n,2)/99
display m(3- function log10(m):)if m<>10 if m<>12 if m<>577 go a.