// 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+
−
}+
−