-


procedure InTree(tree);

begin

if Tree = nil then write(' ')

else

with Tree^ do

begin

if left<>nil then InTree(left);

if right<>nil then InTree(right);

end;

end;




- -  - -  - -