Data commit

Task/Jump-anywhere/Delphi/jump-anywhere-1.delphi

@@ -0,0 +1,21 @@
+var
+  x: Integer = 5;
+
+label
+  positive, negative, both;
+
+begin
+  if (x > 0) then
+    goto positive
+  else
+    goto negative;
+
+positive:
+  writeln('pos');
+  goto both;
+
+negative:
+  writeln('neg');
+both:
+  readln;
+end.

Task/Jump-anywhere/Delphi/jump-anywhere-2.delphi

@@ -0,0 +1,18 @@
+label
+  inloop, outloop;
+
+begin
+  x := 2;
+  if x > 0 then
+    goto inloop;
+
+  for x := -10 to 10 do
+  begin
+inloop:
+    Writeln(x);
+    if x = 8 then
+      goto outloop;
+  end;
+outloop:
+  readln;
+end.

Task/Jump-anywhere/Delphi/jump-anywhere-3.delphi

@@ -0,0 +1,17 @@
+label
+  tryAgain, finished;
+
+begin
+  x := 0;
+
+  try
+    Writeln(x);
+    inc(x);
+    if (x < 10) then
+      goto tryAgain;
+  finally
+    goto finished
+  end;
+finished:
+  readln;
+end.