18 lines
534 B
Ada
18 lines
534 B
Ada
with Ada.Text_IO;
|
|
use Ada.Text_IO;
|
|
|
|
procedure Loop_Continue is
|
|
begin
|
|
Print_All:
|
|
for I in 1 .. 10 loop
|
|
Print_Element: loop
|
|
Put (Integer'Image(I));
|
|
if I = 5 or I = 10 then
|
|
New_Line;
|
|
exit Print_Element;
|
|
end if;
|
|
Put (",");
|
|
exit Print_Element;
|
|
end loop Print_Element;
|
|
end loop Print_All;
|
|
end Loop_Continue;
|