Data update

Task/Constrained-random-points-on-a-circle/EasyLang/constrained-random-points-on-a-circle.easy

@@ -1,6 +1,6 @@
 while cnt < 100
-   x = randint 31 - 16
-   y = randint 31 - 16
+   x = random 31 - 16
+   y = random 31 - 16
    r = sqrt (x * x + y * y)
    if 10 <= r and r <= 15
       cnt += 1

Task/Constrained-random-points-on-a-circle/PascalABC.NET/constrained-random-points-on-a-circle.pas

@@ -0,0 +1,14 @@
+##
+uses Graphwpf;
+
+var count := 0;
+while count < 100 do
+begin
+  var x := random(31) - 16;
+  var y := random(31) - 16;
+  var r := sqrt(x * x + y * y);
+  if (r >= 10) and (r <= 15) then begin
+    count += 1;
+    fillcircle((x + 30) * 8, (y + 30) * 8, 3, colors.Black);
+  end;
+end;