PROCEDURE P(w:integer) 子程BEGIN 开始IF w>0 THEN 判断 BEGIN P(w-1); writeln(w); 输出(w) P(w-1); END;END;
1 2 1 3 1 2 1抓住递归的出线与回线