c = 0

for i = 0 to 3
	for j = 1 to 5
		n = (i * 5) + j
		c += 1
		print "p("; rjust(string(n),2); ") = "; pancake(n); "  ";
		if c mod 5 = 0 then print
	next j
next i
end

function pancake(n)
	gap = 2
	sum = 2
	adj = -1
	while sum < n
		adj += 1
		gap = (gap * 2) - 1
		sum += gap
	end while
	return rjust(string(n + adj), 2)
end function