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