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