with Ada.Text_IO;
use Ada.Text_IO;
procedure Ejercicio_1 is
   type a is range -55..60; --aE[-55,60]
   Subtype b is a range 10..25;  --bE[10,25.00]
   type c is mod 255; --entero sin signo de 1 byte
   --crear tres variables, realizar las operaciones
   sumaUno:Integer;
   sumaDos:Integer;
   sumaTres:Integer;
   aNew:a:=13;
   bNew:b:=23;
   cNew:c:=9;
begin
   -- a+b a+c b+c
   sumaUno:=Integer(aNew+bNew);
   sumaDos:=Integer(aNew)+Integer(cNew);
   sumaTres:=Integer(bNew)+Integer(cNew);
   -- Imprimir por pantalla los resultados
   Put_Line(sumaUno'Img);
   Put_Line(sumaDos'Img);
   Put_Line(sumaTres'Img);
end Ejercicio_1;