Quelle  Algol p268-2.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) comp.
         77 s            pic 9(4)V9(4) comp.
         77 a            pic 9(4)V99 occurs n.
         77 b            pic 9(4)V99 occurs n.
       Procedure Division.
      * Formula
        accept a 
        accept b 
        move 0 to s
        perform varying i from 1 until i=n
          compute s=s+a(i)*b(i)
        end-perform.
        display "s="s
      * s=sum(a(i)*b(i)
       End-Program Victor.