求所有小于或等于100的自然数队。设计程序,该怎么处理

求所有小于或等于100的自然数队。设计程序
for   i=100   to   0
for   n=0   to   100
s=i-n
for   x=1   to   100
if   s=x*x
?i,n
endif
endfor
endfor
endfor
这只是我写的一个小部分，
for   x=1   to   100
if   s=x*x
?i,n
endif
执行这个的时候跳不出来了。
该如何办啊

------解决方案--------------------------------------------------------
set talk off
clear
for i=0 to 100 step 1
for n=0 to 100 step 1
s=i-n
m=i+n

for x=1 to 15
for y=1 to 15
if s=x*x and m=y*y
?i,n
endif
endfor
endfor
endfor
endfor