6 lines
213 B
Ada
6 lines
213 B
Ada
|
type Grade is range 0..100;
|
||
|
|
subtype Lower_Case is Character range 'a'..'z';
|
||
|
|
subtype Natural is Integer range 0..Integer'Last;
|
||
|
|
subtype Positive is Integer range 1..Integer'Last;
|
||
|
|
type Deflection is range -180..180;
|