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

     ``Teilsummen-Formel nach Euler.
     Bearbeitung nach Herrn Ulrich Arnold.
     Optimum''
     ;
   integer K, N, U, T, L; integer array B[1:30], S[0:200] ;

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