clear
s=0
input "N=" to n
for i=1 to n
s=s+1/i
endfor
?"1,1/2,1/3,1/4,……,1/n之和:",s