{ To use the function Random on DEC machines, compile this file with
the file random.i using "pc random.i ran-dec.p".  For more information
read the file INCLUDE in this directory }

program TestRandom (input, output);

var
   i, seed : integer;
   x : real;

function Random (var seed : integer) : real; external;

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