+ tw3210

2025-04-20 18:29:28 +02:00 · 2004-07-14 14:46:05 +00:00 · 2004-07-14 14:46:05 +00:00 · 9a9c17f078
commit 9a9c17f078
parent 1f338ade0d
1 changed files with 18 additions and 0 deletions
--- a/tests/webtbs/tw3210.pp
+++ b/tests/webtbs/tw3210.pp
@ -0,0 +1,18 @@
+Const
+    N	= 10000;
+
+Var
+    count	: array[0..200] of int64;
+    i , tot	: longint;
+
+Begin
+    fillchar(count , sizeof(count) , 0);
+    for i := 1 to N do
+      begin
+          inc(count[random(201)]);
+      end;
+    tot := 0;
+    for i := 0 to 200 do inc(tot , count[i]);
+    if (tot <> N) then
+      halt(1);
+End.