t_id
237
t_adddate
2003/10/03
Flag
t_interactive
set
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=30 Percentage= 60.00
Skipped=16 Percentage= 32.00
{ %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. { $Log: trandom.pp,v $ Revision 1.3 2002/09/07 15:40:56 peter * old logs removed and tabs fixed }