t_17_8_e_v1_volkovich

procedure L(T:tree);
begin
      if T<>nil then
         if (T^.left=nil) and (T^.right=nil) then
            write(T^.elem)
         else begin L(T^.left);
                    L(T^.right);
              end;
end;