Quelle  Berg-max3.cob

       Identification Division.
       Program-Id. max3.
       Environment Division.
       Input-Output Section.
       Data Division.
       Working-Storage Section.
       78  n   pic S9(8) value 100.
       77  i   pic S9(8).
       77  mx  pic S9(8).
       Linkage Section.
       77  a   pic S9(8) occurs n.
       Procedure Division using a.
         move 1    to i          
         move a(i) to mx.
         perform until i = length of a
           if mx < a(i+1) move a(i+1) to mx end-if
           add 1 to i
         end-perform
         display "Max(a)=" mx
       End-Program max3.