Data update

Task/Loops-Continue/Ada/loops-continue-1.adb

@@ -0,0 +1,15 @@
+with Ada.Text_IO;
+use Ada.Text_IO;
+
+procedure Loop_Continue is
+begin
+        for I in 1..10 loop
+                Put (Integer'Image(I));
+                if I = 5 or I = 10 then
+                        New_Line;
+                        goto Continue;
+                end if;
+                Put (",");
+                <<Continue>>  --Ada 2012 no longer requires a statement after the label
+        end loop;
+end Loop_Continue;

Task/Loops-Continue/Ada/loops-continue-2.adb

@@ -0,0 +1,18 @@
+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;