请教如何用一个递归函数实现此功能

n为循环的个数,b :array[0..5] of integer;M是一个变量
例如n为2时
for i:=0 to 5 do
  for j:=0 to 5 do
    if (b[i]+b[j]=M) then
     .
     .
n为3时
for i:=0 to 5 do
  for j:=0 to 5 do
    for k:=0 to 5 do
    if (b[i]+b[j]+b[k]=M) then
     .
     .
n为4时即有4层循环,4个数相加,依次类推,请教如何用一个递归函数实现此功能