with tasks; use tasks; package schedulers is type tasks_range is new integer range 0..100; type Tcb_Table is array (tasks_range) of Tcb; Tcbs : Tcb_Table; Number_Of_Tasks : Tasks_Range := 0; procedure Select_task_by_fixed_Priority( Current_Time : in Natural; Elected : in out Tasks_Range; No_Task : in out Boolean); procedure schedule(Last_Time : in natural); end schedulers;