with RANDOM; with Text_io;
procedure TRANDOM is
  package IIO is new Text_IO.Integer_io(integer); --need integer output
begin	RANDOM.INIT(1);
	Text_io.Put("200 random numbers, Modulus=");
	iio.Put(INTEGER(RANDOM.MODULUS), width=>6); 
	Text_io.new_line;
	for I in 1..20 loop 
	    for J in 1..10 loop
		iio.Put(INTEGER(RANDOM.NEXT), width=>6); 
	    end loop;
	    Text_IO.new_line;
	end loop;
end TRANDOM;