program-id.y.data division.working-storage section. 1 k pic 9. 1 n pic 9(4). 1 i pic 9(4) value 17.procedure division.a.move n(4:)to k compute n=n/10 if(function mod(n,10)-k)^2>25 go a.if n<1 display i(4- function log10(i):).if i<9393 add 1 to i move i to n go a.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).