program-id.y.data division.working-storage section.
1 i pic 99.
1 j pic 9.
1 n pic 9.
1 s pic x(10).
procedure division.accept s.a.add 1 to i
display s(i:)move 9 to j.b.compute n=(function ord(s(j:))-function ord(s(1+j:)))^2^.5
move n to s(1+j:1)if j>1 add -1to j go b.if i<10 go a.