{ To use the function Random on HP machines, compile this file
using "pc ran-hp.p".  For more information read the file INCLUDE
in this directory }

program TestRandom (input, output);

var
   i, seed : integer;
   x : real;

$include 'random.i'$

begin
   write ('Enter integer for random seed: ');
   readln (seed);
   for i := 1 to 10 do begin
      x := Random (seed);
      writeln (x);
   end;
end.