'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'