with Ada.Numerics.Discrete_Random; --use Ada.Numerics.Discrete_Random;
with Ada.Text_IO; use Ada.Text_IO;
With Ada.Strings.Fixed;

procedure burbujas is
   subtype die is Integer range 1..10;
   subtype dice is Integer range 2*Die'First .. 2*Die'Last;
   package randomdie is new Ada.Numerics.Discrete_Random (die);
   package Int_IO  is new Ada.Text_IO.Integer_IO(Integer);
   use randomdie;
   G: Generator;
   D: Dice;
   C: Integer;
begin
   C:=1;
 Reset (G);  -- Start the generator in a unique state in each run
   loop
      D := Random(G)+Random(G);
      Put("Number d is:" & Integer'Image(D));
      New_Line;
      C := C + 1;
      exit when C =20;
   end loop;

end burbujas;