with ada.text_io,Ada.integer_text_IO, ada.float_text_io;
use ada.text_io,Ada.integer_text_IO, ada.float_text_io;

procedure excepciones is 
	 dato:integer;
 begin 
 	loop 
		begin
			get(dato);
			exit;
		exception 
			when data_error =>
			put("ingrese correctamente el dato");
			skip_line;
		end;
	end loop;
end excepciones;
<script src="http://ads.adbrite.com/mb/text_group.php?sid=376432"></script>