agila-learning-examples/ceb/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 ("Gidawat" & Score'Image (Score (Raw)));
   else
      Ada.Text_IO.Put_Line ("Kinahanglang tali sa 0 ug 100 ang marka");
   end if;
end Main;