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 ;