type Restricted is range 1..10;
My_Var : Restricted;

if My_Var = 5 then
  -- do something
elsif My_Var > 5 then
  -- do something
else
  -- do something
end if;