1 // Find all factors of a given input number - J.R. Cordy August 2005

     2 var n;

     3 write "Input n please";

     4 read n;

     5 write "The factors of n are";

     6 var f;

     7 f := 2;

     8 while n != 1 do

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

    10         write f;

    11         n := n / f;

    12     end

    13     f := f + 1;

    14 end