soy nuevo y principiante en Ada

[pacorubio77]

Hola,mirar consiste en que tengo que saber lanzar una excepcion,y no se como lanzarla,por ejemplo Constraint_Error,pero tengo lo siguiente:

Mostrar/Ocultar Número de línea | Expandir/Contraer | Seleccionar todo

1. WITH Ada.Text_IO;USE Ada.Text_IO;
2. WITH Ada.Integer_Text_IO;use Ada.Integer_Text_IO;
3.  
4. procedure excep is
5.    SUBTYPE Temperatura IS Integer RANGE 0..100;
6.    Num: Integer;
7.    tam:Integer:=2 ;  
8. begin
9. -- Leer la temperatura del sensor y calcular su valor
10.    Put ("introduzca un numero");  
11.    Ada.Integer_Text_IO.Get(num);
12.       Ada.Text_IO.Put("el numero leido es : ");
13.       Ada.Integer_Text_IO.Put(Item=>Num,width=>tam);
14. exception
15. -- manejador para Constraint_Error
16.    when CONSTRAINT_ERROR =>Put("hola a todos");
17. end excep;
18.  

pero no se como sacar constraint Error,porque tengo que meter un dato de tipo temperatura...verdad?
Perdonen mi ignorancia,pero es que estoy empezando...

Espero que me ayuden a lanzar la excepcion,y a partir de ahi ya sabré yo sacarlas..

Gracias.