blob: e6b5d734fd407c81c107c8a9a55351ae2d4f64cd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{ %INTERACTIVE }
program test_random;
var
i: integer;
begin
randomize;
WriteLn('Random Values II:');
for i:=0 to 100 do
begin
WriteLn(Random(100));
end;
randomize;
WriteLn('Random Values I:');
for i:=0 to 100 do
begin
WriteLn(Random(100));
end;
end.
|
