Quelle  Kowalk-p39.cbl   Sprache: Cobol

       identification division.
       program-id. kw39.
      * aus Kowalk - Korrekte Software
      * p. 39
       author. Jens.
       date-written. 5.1.2009.
       date-compiled.
       data division.
       working-storage section.
       77 rest     pic 9(4).
       linkage section.
       77 x      pic 9(4).
       77 y      pic 9(4).
       77 bruch    pic 9(4).
       procedure division using x y returning bruch.
          move 0 to bruch
          move x to rest
         perform until rest < y
           subtract y from rest
           add 1 to bruch
         end-perform
        end-program kw39.