t_17_14_v_v1_volkovich

{Волкович Максим (volkovcih.maksim.s@gmail.com), 112гр., v1.0,
описать логическую функцию, определяющую, есть ли в дереве хотя бы 2 одинаковых элемента}
function f(T:tree):boolean;
 {*}function f1(T:tree):boolean;
    {**}function f2(T:tree;e:tet):boolean;
            begin
               if (T^.elem=e) then t2:=true
               else f2:=f2(T^.left,e) or (T^.right,e);
    {**}    end;
        begin
           if(T=nil) then f1:=false
           else f1:=f2(T^.left,T^.elem) or f2(T^.right,T^.elem);
 {*}    end;
 begin
   f:=f1(T) or f1(T^.left) or f1(T^.right);
 end;