Quelle  Algol p268.cob

       Identification Division.
       Program-Id. Victor.
      * Buch "Introduction to Cybernetics", 1966
      * von Viktor Gluschkow
      * p268
       Data Division.
       Working-Storage Section.
         77 s            pic 9(4)V9(4) comp.
         77 k            pic 9(4).
       Linkage Section.
         77 m            pic 9(4).
       Procedure Division using m.
      * Formula
      *  accept m 
        move 0 to s
        perform varying k from 1 until k=m
          compute s=s+1/(k*k)
        end-perform.
        display "s="s
      * s=sum(1/k*k)
       End-Program Victor.