function ben(x : integer) : integer;
var
	ans,i : integer;
begin
	ans := 0;
	for i := 1 to x do
	begin
		ans := ans + i;
	end;
	ben := ans;
end;

function ten(x : integer) : integer;
var
	ans,i : integer;
begin
	ans := 0;
	for i := 1 to x do
	begin
		ans := ans + ben(i);
	end;
	ten := ans;
end;

49. Berapakah hasil dari ten(4) ?
    1. 6
    2. 10
    3. 14
    4. 20
    5. 30
50. Berapakah hasil dari ten(10) ?
    1. 55
    2. 110
    3. 220
    4. 440
    5. 880

Fungsi ben akan menjumlahkan nilai dari 1 sampai x, sedangkan fungsi ten akan menjumlahkan nilai ben dari 1 sampai x.

49. ten(4) = ben(1) + ben(2) + ben(3) + ben(4)
    = 1 + (1 + 2) + (1 + 2 + 3) + (1 + 2 + 3 + 4)
    = 4×1 + 2×3 + 3×2 + 1×4
    = 20 (d).

50. Dengan cara yang sama, ten(10)
    = 2*(10×1 + 9×2 + 8×3 + 7×4 + 5×6)
    = 2*110
    = 220 (c).