RosettaCodeData/Task/Multi-dimensional-array/Ada/multi-dimensional-array-3.ada

2 lines
51 B
Ada

subtype Positive is Integer range 1..Integer'Last;