Quelle  3-nth primefactor.cob

       identification division.
       program-id. nthprimefactor.
      * Kurt Gödel, 1931
      * "On formally undecidable propositions
      *  of principa mathematica"
       author. "JD".
       date-written. 11.8.2007.
       date-compiled.
       data division.
       working-storage section.
       77 q pic 9(4).
       linkage section.
       77 x   pic 9(4).
       77 y   pic 9(4).
       77 r   pic 9(4).
       procedure division using x y 
                          returning r.
      * computes x | y 
         move 0 to r
         move 1 to q.
      * invariant q < y   
         perform until q >= y
           if function prime(q)
           and function divisible(q,y) then
             move q to r
         end-perform.
      *  r = x | y
        end-program nthprimefactor.