program-id.y.data division.working-storage section.
1 i pic 999.
1 j pic 9999.
1 k pic 9999.
procedure division.a.add 1 to i
move 0 to j.b.add 1 to j
compute k=(i*i+j*j)^.5
if i*i+j*j=k*k display i(3- function log10(i):)" "j(4- function
log10(j):)" "k(4- function log10(k):).if j<9^4 go b.if i<100 go a.