ADA - elevar una excepción y que no acabe el programa

Hola a todos!, tengo una duda, quiero tratar los posibles errores en Ada con las exceptions, pero claro, si salta la exception, el programa se acaba. Así que si alguien me puede decir como hacerlo para que trate el error y se pueda seguir en el programa... Gracias!

Pues te copio un ejemplo de http://es.wikibooks.org/wiki/Programaci%C3%B3n_en_Ada_/_Excepcione (que te aconsejo leer):

begin
....
exception
when Constraint_Error =>
Put ("Error de rango.");
when Program_Error | Tasking_Error =>
Put ("Error de flujo.");
when others =>
Put ("Otro error.");
end;