Quelle  Algol p268-3.cob

       Identification Division.
       Program-Id. Victor.
      * Buch "Introduction to Cybernetics", 1966
      * von Viktor Gluschkow
      * p268
       Data Division.
       Working-Storage Section.
         78 n            value 100.
         77 i            pic 9(4).
         77 k            pic 9(4).
         77 s            pic 9(4)V9(4) comp occurs n.
         77 b            pic 9(4)V99 occurs n.
         01 a occurs n.
           02            pic 9(4)V99 occurs n.
       Procedure Division.
      * Formula
        accept a 
        accept b 
        perform varying k from 1 until k=n
          move 0 to s(k)
          perform varying i from 1 until i=n
            compute s(k)=s(k)+b(i)*a(i,k)
          end-perform
        end-perform       
        display "s="s
      * s=sum(a(i)*b(i)
       End-Program Victor.