// 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 (f < n / 2 + 1) do {
  if ((n / f) * f == n) then  { write(f); write "\n" } else { skip };
  f := f + 1
}