program-id.y.data division.working-storage section. 1 i pic 99. 1 k pic 9(9). 1 n pic 9(11). 1 s pic x(11). procedure division.a.accept s move s to n move 0 to i k.b.add 1 to i compute n=n/10 if n>0 compute k=k+function factorial(i)*function mod(n,10)go b.display k(9- function log10(k):)if 84=k(3:2)display 6 else if k<>24 if k<>508 go a.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).