10 lines
162 B
Ada
10 lines
162 B
Ada
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;
|