T.2.1. Task Types: Modulating Tasks, Differentiate, inputs - JulTob/Ada GitHub Wiki

You can modulate different options for tasks as follows.

task_Input.adb

with Ada.Text_IO;
use  Ada.Text_IO;
procedure Task_Test is
    task type Repeat (Count : Natural);

    task body Repeat is
    begin
        -- Discriminant determines number of iterations
        for I in 1..Count loop  
            Put_Line (Integer'Image(Count) & " Hello!");
            delay 2.0;
        end loop;
    end Repeat;

    A : Repeat (Count => 10);       -- this task says hello 10 times
    B : Repeat (Count => 5);        -- this one does it 5 times
begin
    null;
end Task_Test;