package body Task_Pack_5 is
    task body T1 is
    begin
        loop
            accept E1 do
                Global := Global + A_One;
                Remote;
            end E1;
        end loop;
    end T1;

    task body T2 is
    begin
        loop
            accept E2 do
                Global := Global + A_One;
                Remote;
            end E2;
        end loop;
    end T2;

    task body T3 is
    begin
        loop
            accept E3 do
                Global := Global + A_One;
                Remote;
            end E3;
        end loop;
    end T3;

    task body T4 is
    begin
        loop
            accept E4 do
                Global := Global + A_One;
                Remote;
            end E4;
        end loop;
    end T4;

    task body T5 is
    begin
        loop
            accept E5 do
                Global := Global + A_One;
                Remote;
            end E5;
        end loop;
    end T5;

    task body T6 is
    begin
        loop
            accept E6 do
                Global := Global + A_One;
                Remote;
            end E6;
        end loop;
    end T6;

    task body T7 is
    begin
        loop
            accept E7 do
                Global := Global + A_One;
                Remote;
            end E7;
        end loop;
    end T7;

    task body T8 is
    begin
        loop
            accept E8 do
                Global := Global + A_One;
                Remote;
            end E8;
        end loop;
    end T8;

    task body T9 is
    begin
        loop
            accept E9 do
                Global := Global + A_One;
                Remote;
            end E9;
        end loop;
    end T9;

    task body T10 is
    begin
        loop
            accept E10 do
                Global := Global + A_One;
                Remote;
            end E10;
        end loop;
    end T10;

end Task_Pack_5;