program Traversa12 (Input,Ou !)I;t); al Program 11.7 - Rewrite t~gram 11.6 using procedur- paramete . } type Ptr = INode; Node = record Info: Char; LLink, RLink: Ptr end; Positive = 1 .. MaxInt; var Root: Ptr; Ch: Char; procedure PreOrder(P: Ptr); begin if P <> nil then begin Write(Output,PI.Infc); PreOrder(pI.LLink); PreOrder(pI.RLink) end end { PreOrder }; procedure InOrder(P: Ptr); begin if P <> nil then begin InOrder(pI.LLink); ~ il e(Output, pI.Info); InOrder(pI.RLink) end end { InOrder }; procedure PostOrder(P: Ptr begin if P <> nil then begin PostOrder (PI. LLink); cst Order (PI. RLink) ; Write(Output,PI.Infc end end { PostOrder }; 

