FUNCTION SISYAGO(n,m)
   LET SISYAGO=INT(n*10^m+0.5)/10^m
END FUNCTION

PRINT 
INPUT PROMPT "四捨五入したい小数を入力してください。  ":n
INPUT PROMPT "小数点以下何桁にしますか？  ":m

PRINT "          ↓"
PRINT "#############################################"
PRINT "      ";SISYAGO(n,m)
PRINT "#############################################"
PRINT "（ もし、希望の小数点以下の桁まで表示され"
PRINT "  ていない場合は、０を付け加えてください。）"
PRINT
END