Contributor: LOU DUCHEZ {LOU DUCHEZ > Could anybody explain how to Write such a routine in Pascal? Here's a dorky little "Factoring" Program I wrote to display the factors of a number: } Program factors; Var lin, lcnt : LongInt; begin Write('Enter number to factor: '); readln(lin); lcnt := 2; While lcnt * lcnt <= lin do begin if lin mod lcnt = 0 then Writeln('Factors:', lcnt : 9, (lin div lcnt) : 9); lcnt := lcnt + 1; end; end. { Notice that I only check For factors up to the square root of the number Typed in. Also, notice the "mod" operator: gives the remainder of Integer division ("div" gives the Integer result of division). Not Really knowing exactly what you want to accomplish, I don't Really know if the above is of much help. But what the hey. }