我有一个算法题不会，希望各位帮忙!!!!

要求：
把下面的递归转化为非递归，小弟实在是做不出来，想了很长时间也做不出来。希望各位帮一人忙。谢谢!
procedure P(w:int);
begin
if w>0 then
begin
p(w-10);
write(w);
p(w-1);
end;
endp;
是不是很简单，希望大家帮个忙，因为我刿学算法，有很多不会的地方。