p/o程序一递规调用 var ni procedure rec; begin if n #o then begin write(n) n:=n-1; call reci end end begin read (n) call reci endpl/0程序--递规调用 var n; procedure rec; begin if n # 0 then begin write(n); n := n - 1; call rec; end; end; begin read(n); call rec; end