Quelle  diverse.cob   Sprache: Cobol

       identification division.
       program-id. diverse.
      * Autor JD
      * Dies ist eine Schleife mit Auswahl
      * gesucht sind xn2, xn3, xn5
       author. "JD".
       date-written. 27.12.2006.
       date-compiled.
       data division.
       working-storage section.
         77 xn2        pic 9(4)V9(8).
         77 xn3        pic 9(4)V9(8).
         77 xn5        pic 9(4)V9(8).
         77 xn        pic 9(4)V9(8).
       procedure division.
         display "start"
         accept xn
         perform with test after
         until xn<=0 or xn>=10000
           evaluate true
           when function mod(xn,2)=0 
             add 1 to xn2
           when function mod(xn,3)=0 
             add 1 to xn3
           when function mod(xn,5)=0 
             add 1 to xn5
           end-evaluate
           add 1 to xn
         end-perform.
         display "xn="xn.
         display "xn2="xn2.
         display "xn3="xn3.
         display "xn5="xn5.
         display "done".
        end-program diverse.