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