with Ada.Numerics.Discrete_Random,  Ada.Numerics.Float_Random, Ada.Calendar;
use Ada.Numerics.Float_Random, Ada.Calendar;
with text_io; use text_io;

procedure Random is
	package Boolean_Random is new Ada.Numerics.Discrete_Random(Boolean);
		use Boolean_Random;
	bg: Boolean_Random.Generator;
	fg: Ada.Numerics.Float_Random.Generator;
begin
	Reset(bg,5); Reset(fg);
	for i in 1..3 loop
		Put_line(boolean'image(Random(bg)) & float'image(Random(fg)));
	end loop;

	New_Line;

	Reset(fg,INTEGER(Seconds(Clock)*100) mod 100);
	for i in 1..3 loop
		Put_Line(float'image(Random(fg)));
	end loop;
end Random;