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;
   IF a != NIL THEN
      alturaDerecho := AlturaBinario(a^.derecho);
      alturaIzquierdo := AlturaBinario(a^.izquierdo);
      IF alturaDerecho > alturaIzquierdo THEN
         resultado := alturaDerecho;
      ELSE
         resultado := alturaIzquierdo;
      END;
      resultado := resultado + 1;
   END;

   RETURN resultado;

END AlturaBinario;