WITH Ada.Text_IO;USE Ada.Text_IO;
WITH Ada.Integer_Text_IO;use Ada.Integer_Text_IO;
procedure excep is
SUBTYPE Temperatura IS Integer RANGE 0..100;
Num: Integer;
tam:Integer:=2 ;
begin
-- Leer la temperatura del sensor y calcular su valor
Put ("introduzca un numero");
Ada.Integer_Text_IO.Get(num);
Ada.Text_IO.Put("el numero leido es : ");
Ada.Integer_Text_IO.Put(Item=>Num,width=>tam);
exception
-- manejador para Constraint_Error
when CONSTRAINT_ERROR =>Put("hola a todos");
end excep;