dim a(7^7)
do
for j=1to 99a(i*i+j*j)=1next
if a(i)?i^.5using"%6f"
i=i+1loop