numeric digits 11
a.=0
do n=1
x=n
do i=0 to 21
k=n*n+i*i
a.k=1
x=x/2+n/2/x
end
do a.n
say format(x,,6,901-n)
end
end