電卓で素因数分解

最近の関数電卓には素因数を求める関数が入っていますが、fx-5800Pにはありません。他にも最小公倍数や最大公約数の関数もありません。まあ、プログラムができるからいいのかも？
取扱説明書にプログラム例題というこで素因数分解のプログラムが紹介されています。（P117）
早速入力してみました。みごとに素因数分解してくれます。
例えば18144を素因数分解しようします。
18144＝2⁵×3⁴×7なのですが、
EXEキーを押すごとに１つずつ答えが表示されます。
つまり２が5回表示され、３が4回表示７が表示されさらにEXEキーを押すとENDと表示されます。これは実用的ではありません。そこで仕方なく新しくプログラムを作りました。
———————————————–
“N”?→N
Int（√(N))+1→M
2→P:Cls
Lbl 2:0→I
While Frac(N+P)=0:N÷P→N:I+1→I:WhileEnd
If I>0:Then Locate1,1,P
Locate 5,1,I◢
IfEnd
If P>M:THen Locate 1,2,”END”:Stop:IfEnd
If P=2:Then 1→P:IfEnd
P+2→P
Goto 2