Integer sequence: Difference between revisions
add Ada
(→E: new example) |
(add Ada) |
||
Line 1:
{{draft task}}Create a program that, when run, would display all integers from 1 to ∞ (or any relevant implementation limit), in sequence (i.e. 1, 2, 3, 4, etc) if given enough time.
=={{header|Ada}}==
<lang Ada>with Ada.Text_IO;
procedure Integers is
Value : Integer := 0;
begin
loop
Ada.Text_IO.Put_Line (Integer'Image (Value));
Value := Value + 1;
end loop;
end Integers;</lang>
=={{header|BASIC}}==
| |||