A <- 0
for i = 1 to n {
	if (M / pi < qi)
		A <- A + floor(M / pi)
		M <- M % pi
	else
		A <- A + qi
		M <- M – qi * pi
	}
output A