T_suma(T, x)
 suma = 0
if x != NIL then
 begin
 if  x.key >0 then suma = suma + 1
	suma = suma + T_suma(T, x.left)
	suma = suma + T_suma(T, x.right)
 end
 else return 0