Quelle  Kowalk-p197.cbl   Sprache: Cobol

       identification division.
       program-id. kw197.
      * aus Kowalk - Korrekte Software
      * p. 197
       author. Jens.
       date-written. 5.1.2009.
       date-compiled.
       data division.
       working-storage section.
       77 i      pic 9(4).
       77 te     pic 9(4).
       linkage section.
       77 n      pic 9(4).
       77 feld   pic 9(4) occurs 100.
       77 summ   pic 9(4).
       procedure division using n feld returning summ.
         perform varying i from 1 until i>n
           compute te=5*i
           add feld(te) to summ
          end-perform
        end-program kw197.