with Ada.Numerics.Discrete_Random;
with Ada.Calendar;
with Ada.Text_IO;

procedure Unsorted is
	subtype Data_Range is Integer range 0 .. 255;
	subtype Data_Index is Integer range 0 .. 32768;
	type Data_Array is array (Data_Index) of Data_Range;

	package Random_Data is new Ada.Numerics.Discrete_Random(Data_Range);
	use Ada.Calendar;

	Generator : Random_Data.Generator;

begin -- Unsorted
	Random_Data.Reset (Generator);
	declare
		Data : Data_Array := (others => Random_Data.Random(Generator));
		Sum : Natural := 0;
		Start : Time;
		Stop : Time;
	begin
		Start := Ada.Calendar.Clock;
		for j in 1 .. 100000 loop
			for i in Data'Range loop
			 if Data(i) >= 128
			 then
			 Sum := Sum + Data(i);
			 end if;
			end loop;
		end loop;
		Stop := Ada.Calendar.Clock;
		Ada.Text_IO.Put_Line( Duration'Image (Stop - Start) & " seconds");
	end;
end Unsorted;