foo.cob

       identification division.
       program-id. sumofintegers.

       data division.
       working-storage section.
       01 n                       pic 9(10).
       01 i                       pic 9(10).
       01 total                   pic 9(10).

       procedure division.
           display "Enter a positive integer"
           accept n
           perform varying i from 1 by 1 until i > n
               add i to total
           end-perform
           display "The sum is " total
           .