// Find all factors of a given input number

// by J.R. Cordy August 2005

write "Input n please";

read n;

write "The factors of n are\n";

f := 2;

while n != 1 do {

    while (n / f) * f == n do {

        write f; write "\n";

        n := n / f

    };

    f := f + 1

}