-- Declaración del paquete principal
package Principal is
    -- Declaraciones públicas
    procedure Public_Procedure;
private
    -- Declaraciones privadas
    procedure Private_Procedure;
end Principal;

-- Declaración del paquete hijo
package Principal.Hijo is
    -- Declaraciones públicas del paquete hijo
    procedure Child_Procedure;
end Principal.Hijo;

-- Implementación del paquete principal
package body Principal is
    procedure Public_Procedure is
    begin
        -- Implementación de la función pública
    end Public_Procedure;

    procedure Private_Procedure is
    begin
        -- Implementación de la función privada
    end Private_Procedure;
end Principal;

-- Implementación del paquete hijo
package body Principal.Hijo is
    procedure Child_Procedure is
    begin
        -- Implementación de la función del paquete hijo
        Public_Procedure; -- Llamada a la función pública del paquete principal
    end Child_Procedure;
end Principal.Hijo;

-- Archivo: principal.ads
package Principal is
    procedure Saludar;
private
    procedure Saludo_Privado;
end Principal;

-- Archivo: principal.adb
package body Principal is
    procedure Saludar is
    begin
        Ada.Text_IO.Put_Line("Hola desde el paquete principal!");
    end Saludar;

    procedure Saludo_Privado is
    begin
        Ada.Text_IO.Put_Line("Este es un saludo privado.");
    end Saludo_Privado;
end Principal;

-- Archivo: principal.hijo.ads
package Principal.Hijo is
    procedure Saludar_Hijo;
end Principal.Hijo;

-- Archivo: principal.hijo.adb
package body Principal.Hijo is
    procedure Saludar_Hijo is
    begin
        Ada.Text_IO.Put_Line("Hola desde el paquete hijo!");
        Principal.Saludar; -- Llamada a la función del paquete principal
    end Saludar_Hijo;
end Principal.Hijo;

-- Archivo: main.adb
with Principal;
with Principal.Hijo;
with Ada.Text_IO;

procedure Main is
begin
    Principal.Saludar;
    Principal.Hijo.Saludar_Hijo;
end Main;

Hola desde el paquete principal!
Hola desde el paquete hijo!
Hola desde el paquete principal!

-- Archivo: matematicas.ads
package Matematicas is
    function Suma(A, B : Integer) return Integer;
private
    function Multiplicacion(A, B : Integer) return Integer;
end Matematicas;

-- Archivo: matematicas.adb
package body Matematicas is
    function Suma(A, B : Integer) return Integer is
    begin
        return A + B;
    end Suma;

    function Multiplicacion(A, B : Integer) return Integer is
    begin
        return A * B;
    end Multiplicacion;
end Matematicas;

-- Archivo: matematicas.avanzadas.ads
package Matematicas.Avanzadas is
    function Potencia(Base, Exponente : Integer) return Integer;
end Matematicas.Avanzadas;

-- Archivo: matematicas.avanzadas.adb
package body Matematicas.Avanzadas is
    function Potencia(Base, Exponente : Integer) return Integer is
        Resultado : Integer := 1;
    begin
        for I in 1 .. Exponente loop
            Resultado := Matematicas.Suma(Resultado, Base - 1);
        end loop;
        return Resultado;
    end Potencia;
end Matematicas.Avanzadas;

-- Archivo: main.adb
with Matematicas;
with Matematicas.Avanzadas;
with Ada.Text_IO;

procedure Main is
begin
    Ada.Text_IO.Put_Line(Integer'Image(Matematicas.Suma(3, 4)));
    Ada.Text_IO.Put_Line(Integer'Image(Matematicas.Avanzadas.Potencia(2, 3)));
end Main;