t_17_7_e_v1_volkovich

{Волкович Максим (volkovcih.maksim.s@gmail.com), 112гр., v1.0,
вывести на экран элементы всех листьев дерева T}
procedure LinQ{List in Queue}(T:tree; var q:queue);
      begin{до вызова процедуры нужно очистить очередь q}
           if (T^.left=nil) and (T^.right=nil) then ВОЧЕРЕДЬ(q,T^.elem);
           if T^.left<>nil then LinQ(T^.left;q);
           if T^.right<>nil then LinQ(T^.right;q);
      end;
procedure writeList(var q:queue);
      var el:elem;
      begin
            while q<>nil do
               begin
                    ИЗОЧЕРЕДИ(q,el);
                    write(el,' ');
               end;
      end;