PRINT
INPUT PROMPT "概数化したい数？  ":n
PRINT
PRINT " ⇒ ";GAISU(n)
PRINT
END

EXTERNAL FUNCTION GAISU(a)        !概数化
LET KURAI=10^INT(LOG(a)/LOG(10))
LET GAISU=INT(a/KURAI+0.5)*KURAI
END FUNCTION