with ada.text_io;
with ada.integer_text_io;
with Ada.Numerics.Discrete_Random;
procedure TestRandomNumberGenerator is
   subtype number is integer range 1..250;
   type theArray is Array (1..15) of number;

   package myValues is new Ada.Numerics.Discrete_Random (number);
     g         : myValues.generator;
     myArray   : theArray;
   begin
      myValues.reset(g);  
      for i in 1..15 loop  
        myArray(i) := myValues.Random(g);
        ada.integer_text_io.put (myArray(i));
        ada.text_io.new_line;
      end loop;
   end testRandomNumberGenerator;