agila-learning-examples/tl/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 ("Tinanggap" & Score'Image (Score (Raw)));
   else
      Ada.Text_IO.Put_Line ("Dapat nasa pagitan ng 0 at 100 ang marka");
   end if;
end Main;