Quelle  Kowalk-p73.cbl

       identification division.
       program-id. kw73-1.
      * aus Kowalk - Korrekte Software
      * p. 73
       author. Jens.
       date-written. 5.1.2009.
       date-compiled.
       data division.
       working-storage section.
       77 hilf      pic 9(4).
       linkage section.
       77 qua    pic 9(4).
       77 n      pic 9(4).
       procedure division using n returning qua.
          move 0 to qua
          move 1 to hilf
          perform n times
           add hilf to qua
           add 2 to hilf
          end-perform
        end-program kw73-1.
        
       identification division.
       program-id. kw73-2.
      * aus Kowalk - Korrekte Software
      * p. 73
       author. Jens.
       date-written. 5.1.2009.
       date-compiled.
       data division.
       working-storage section.
       77 hilf      pic 9(4).
       linkage section.
       77 qua    pic 9(4).
       77 n      pic 9(4).
       procedure division using n returning qua.
          move 0 to qua
          perform varying hilf from 1 by 2
           until hilf=n+n-1
           add hilf to qua
          end-perform
        end-program kw73-2.