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;