8 lines
164 B
Ada
8 lines
164 B
Ada
|
with Ada.Text_IO;
|
||
|
|
procedure Positives is
|
||
|
|
begin
|
||
|
|
for Value in Positive'Range loop
|
||
|
|
Ada.Text_IO.Put_Line (Positive'Image (Value));
|
||
|
|
end loop;
|
||
|
|
end Positives;
|