begin
   comment
     ALGOL Praktikum, Dr. Karl Nickel, 1964,
     page 215 (Aufgabe 40)

     ``Teilsummen-Formel nach Euler.
     Loesung von Doz. Dr. R. Wagener.
     Elegantissimum''
     ;

   integer N, H, U, K ;  integer array S[0:200] ;

   for N ≔ 1 step 1 until 200 do
      begin S[0] ≔ N ;  S[N] ≔ 0 ;  H ≔ U ≔ -1 ;
         for K ≔ N-1 step H until 0 do
            begin S[N] ≔ S[K] + S[N]×U ;
               H ≔ ((3+U)×H - 2) / (3-U) ;
               U ≔ -U
            end ;
         S[N] ≔ ABS( S[N] ) ;
         VPRINT (N, S[N])
      end
end