identification division.
       program-id. zahlenlotto.
      *  aus Pomberger, Dobler
      * Algorithmen und Datenstrukturen, p57 
       author. "JD".
       date-written. 3.6.2008.
       date-compiled.
       data division.
       working-storage section.
       77 i   pic 9(4).
       77 n   pic 9(4).
       77 k   pic 9(4).
       77 nf    pic 9(4).
       77 kf    pic 9(4).
       77 nmkf  pic 9(4).
       77 bc   pic 9(4).
       procedure division.
      * computes something
         accept n
         accept k
      * n!  
         move 1 to nf
         perform varying i from 1 until i>n
           multiply nf by i
         end-perform
      * k!   
         move 1 to kf
         perform varying i from 1 until i>k
           multiply kf by i
         end-perform
      * (n-k)!   
         move 1 to nmkf
         perform varying i from 1 until i>n-k
           multiply nmkf by i
         end-perform
      * binomial coefficient 
         compute bc = nf / (kf * nmkf)
         display bc
        end-program fak.