10 lines
234 B
Ada
10 lines
234 B
Ada
|
with Ada.Text_IO;
|
||
|
|
procedure Integers is
|
||
|
|
Value : Integer := 1;
|
||
|
|
begin
|
||
|
|
loop
|
||
|
|
Ada.Text_IO.Put_Line (Integer'Image (Value));
|
||
|
|
Value := Value + 1; -- raises exception Constraint_Error on overflow
|
||
|
|
end loop;
|
||
|
|
end Integers;
|