PRINT 
INPUT PROMPT "等差数列の初項は？　":a
INPUT PROMPT "公差（ ０以外 ）は？　":d
INPUT PROMPT "調べたいのは、第何項（初項以外）？　":n
PRINT
PRINT "第";n;"項 :　";a+(n-1)*d
PRINT "第";n;"項までの和 ：　";n*(2*a+(n-1)*d)/2
PRINT
PRINT a;"+";
LET s=a
FOR i=2 TO n
   LET a=a+d
   LET s=s+a
   PRINT a;"+";
NEXT i
PRINT
PRINT
PRINT "第";n;"項 ：　";a
PRINT "第";n;"項までの和 ：　";s
PRINT
END



#################################################################



PRINT 
INPUT PROMPT "等比数列の初項は？　":a
INPUT PROMPT "公比（ １以外 ）は？　":r
INPUT PROMPT "調べたいのは、第何項（初項以外）？　":n
PRINT
PRINT "第";n;"項 :　";a*r^(n-1)
PRINT "第";n;"項までの和 ：　";a*(1-r^n)/(1-r)
PRINT
LET s=a
FOR i=2 TO n
   LET a=a*r
   LET s=s+a
NEXT i
PRINT "第";n;"項 ：　";a
PRINT "第";n;"項までの和 ：　";s
PRINT
END