with Ada.Text_IO;
use Ada.Text_IO;

with Ada.Integer_Text_IO;
use Ada.Integer_Text_IO;

with RandomPackage;
use RandomPackage;

procedure zadanie3 is

   task Task_01;
   task Task_02;

   task body Task_01 is
      i, MAX_DELAY, delayMs : Integer;
      D : Duration;

   begin
      i := 1;
      MAX_DELAY := 100;

      loop
         delayMs := RandomInt(MAX_DELAY);
         D := Duration(Float(delayMs) / Float(MAX_DELAY));

         Set_Line(Positive_Count(i));
         Set_Col(1);
         Put("Zadanie 01 po raz ");
         Put(i,1);


         delay D;

         exit when i=10;
         i := i + 1;
      end

   loop;
   end Task_01;


   task body Task_02 is
      i, MAX_DELAY, delayMs : Integer;
      D : Duration;

   begin
      i := 1;
      MAX_DELAY := 100;

      loop
         delayMs := RandomInt(MAX_DELAY);
         D := Duration(Float(delayMs) / Float(MAX_DELAY));

         Set_Line(Positive_Count(i));
         Set_Col(30);
         Put("Zadanie 02 po raz ");
         Put(i,1);


         delay D;

         exit when i=10;
         i := i + 1;
      end

   loop;
   end Task_02;



begin
   --Moje_zadanie;
   null;
end zadanie3;