1 // Find all factors of a given input number

     2 

     3 

     4 write "Input n please";

     5 read n;

     6 write "The factors of n are";

     7 f := 2;

     8 while (f < n / 2 + 1) do {

     9   if ((n / f) * f == n) then  { write(f) } else { skip };

    10   f := f + 1

    11 }