Para agus

PROCEDURE AlturaBinario (a: Binario): CARDINAL;
(* Devuelve la altura de 'a'.
   La altura de una hoja es 1. *)
VAR alturaDerecho, alturaIzquierdo, resultado : CARDINAL;
BEGIN

   resultado := 0;
   alturaDerecho := 0;
   alturaIzquierdo := 0;
   IF NOT EsHoja(a) THEN
      IF TieneHijoDerecho(a) THEN
         alturaDerecho := AlturaBinario(a^.derecho);
      END;
      IF TieneHijoIzquierdo(a) THEN
         alturaIzquierdo := AlturaBinario(a^.izquierdo);
      END;
      IF alturaDerecho > alturaIzquierdo THEN
         resultado := alturaDerecho;
      ELSE
         resultado := alturaIzquierdo;
      END;
   END;

   RETURN resultado + 1;

END AlturaBinario;