agila-learning-examples/en/ada-types-and-boundaries/main.adb

with Ada.Text_IO;

procedure Main is
   subtype Score is Integer range 0 .. 100;
   Raw : Integer := 101;
begin
   if Raw in Score then
      Ada.Text_IO.Put_Line ("Accepted" & Score'Image (Score (Raw)));
   else
      Ada.Text_IO.Put_Line ("Score must be between 0 and 100");
   end if;
end Main;