提取公因数，求因数子程序

.如果 (非零自然数 ％ 2 ＝ 1) ' ''''''''''''''''如果非零自然数除以2的余数部分等于1。
' 显示过程编辑框.加入文本 (“因为” ＋ 到文本 (非零自然数) ＋ “是奇数，所以求因数时将跳过偶数。” ＋ #换行符 ＋ #换行符)
.变量循环首 (1, 非零自然数, 2, 当前除数) ' 那么非零自然数就是奇数，因数只有奇数，所以跳过偶数取因数。
.如果真 (当前除数 ≤ 0)
跳出循环 ()
.如果真结束
.如果真 (非零自然数 ％ 当前除数 ＝ 0)
当前因数 ＝ 当前除数
商 ＝ 非零自然数 ÷ 当前因数
.如果真 (当前因数 ≤ 商)
加入成员 (因数集, 当前因数)
加入成员 (大于因数的商集, 商)
因数的数量 ＝ 因数的数量 ＋ 1
' 显示结果编辑框.加入文本 (“第” ＋ 到文本 (因数的数量) ＋ “个因数是：” ＋ 到文本 (当前因数) ＋ “,” ＋ #换行符)
' 显示过程编辑框.加入文本 (到文本 (非零自然数) ＋ “ 除以 ” ＋ 到文本 (当前因数) ＋ “ 等于 ” ＋ 到文本 (商) ＋ “ 余数是0” ＋ #换行符)
.如果真结束
.如果真 (当前因数 ＞ 商)
' 显示过程编辑框.加入文本 (#换行符 ＋ “由于下面的因数将大于另一个因数，因此” ＋ #换行符)
' 显示过程编辑框.加入文本 (“按从大到小逐个将上面的因数作为下面的另一个因数，” ＋ #换行符 ＋ “按从小到大逐个将上面的另一个因数作为下面的因数。” ＋ #换行符 ＋ #换行符)
大于因数的商的数量 ＝ 因数的数量
跳出循环 ()
.如果真结束
.如果真结束
.变量循环尾 ()