1
// Find all factors of a given input number
2
// by J.R. Cordy August 2005
3
4
write "Input n please";
5
read n;
6
write "The factors of n are";
7
f := 2;
8
while n != 1 do {
9
while (n / f) * f == n do {
10
write f;
11
n := n / f
12
};
13
f := f + 1
14
}