Herencia con clase amiga

¿Cómo se utiliza la herencia en una clase amiga?
 
Todas las subclases de la clase AMIGO (AMIGO_HIJOS) serían por defecto FRIENDS de la clase que ofrece la amistad (MI_CLASE) y tendrían acceso ilimitado a todos los componentes.
En este artículo, vamos a ver cómo se utiliza la herencia en una clase amiga.
Ampliamos el programa del artículo anterior (Concepto Friends – Clase Amiga) y creamos la clase COLABORADOR que hereda de la clase SOCIO, clase que es amiga de la clase EMPRESA. En la nueva clase creada, definimos e implementamos un método funcional llamado OBTENER_CAPITAL_EMPRESA en la sección pública que devuelve el valor del atributo privado CAPITAL de la clase EMPRESA. En el evento START-OF-SELECTION declaramos una referencia de la clase creada y pintamos en la salida el valor que devuelve el método OBTENER_CAPITAL_EMPRESA.