int comb( int n, r; ) 
	begin
		if r < 0 or r > n then
			return 0;
		elif r == 0 or r == n then
			return 1;
		else
			return comb( n - 1, r - 1 ) + comb( n - 1, r );
		end
	end
[]char pad( int n, padlen; ) 
	begin
		[]char s;
		s = "" + n;
		int length = size s;
		while length < padlen do
			s = " " + s;
			length = length + 1;
		end
		return s;
	end
int n, r;
for n = 0; n < 10; n = n + 1 do
	for r = 0; r < 10 - n; r = r + 1 do
		print( "    " );
	end
	for r = 0; r <= n; r = r + 1 do
		print( pad( comb( n, r ), 8 ) );
	end
	println();
end
