PRINT
PRINT "ローン　残債方式"
PRINT
INPUT PROMPT "借金額？ ":X
INPUT PROMPT "返済年数？ ":Y
INPUT PROMPT "年利率(%)？ ":Z
PRINT
LET xx=X
LET C=0
FOR i=1 TO Y
   PRINT USING "###":i;
   PRINT "年目返済額";
   PRINT USING "############":ROUND(xx/Y+X*Z/100,0);
   PRINT "円"
   LET C=C+X*Z/100 
   LET X=X-xx/Y
NEXT i
PRINT
PRINT "１年当たり返済元本 ＝";ROUND(xx/Y,0);" 円"
PRINT "利子額";ROUND(C,0);"円"
PRINT "利子率 ＝";ROUND(100*C/xx,2);"％"
PRINT "利子率 ＝";ROUND(Z*(Y+1)/2,2);"％"
END