Data update

Task/Loops-Wrong-ranges/PascalABC.NET/loops-wrong-ranges.pas

@@ -0,0 +1,15 @@
+procedure DisplayRange(first, last, step: integer);
+begin
+  Print($'({first,2}, {last,2}, {step,2}):  ');
+  if step = 0 then
+    Println('not allowed')
+  else Println(Range(first, last, step));
+end;
+
+begin
+  var ranges := |(-2, 2, 1), (-2, 2, 0), (-2, 2, -1),
+                 (-2, 2, 10), (2, -2, 1), (2, 2, 1),
+                 (2, 2, -1), (2, 2, 0), (0, 0, 0)|;
+  foreach var (f, l, s) in ranges do
+    DisplayRange(f,l,s);
+end.