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.