generic
type Num is range <>;
package Integer_IO is...
generic
type Num is mod <>;
package Modular_IO is...
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO; with Text_IO; use Text_IO; procedure prueba is type Entero_Corto is range -256 .. 255;-- Entero con signo (de -256 a 255) type Mod_Byte is mod 256; -- Entero modular (con módulo 256, -- valores de 0 a 255) package Entero_Corto_IO is new Integer_IO (Entero_Corto); package Mod_Byte_IO is new Modular_IO (Mod_Byte); use Entero_Corto_IO, Mod_Byte_IO;
...