with Remote_Global;
use Remote_Global;

package body Task_Pack_6 is
    task body T1 is
    begin
        loop
            select
                accept E1 do
                    Global := Global + A_One;
                    Remote;
                end E1;
            or
                accept E2 do
                    Global := Global + A_One;
                    Remote;
                end E2;
            or
                accept E3 do
                    Global := Global + A_One;
                    Remote;
                end E3;
            or
                accept E4 do
                    Global := Global + A_One;
                    Remote;
                end E4;
            or
                accept E5 do
                    Global := Global + A_One;
                    Remote;
                end E5;
            or
                accept E6 do
                    Global := Global + A_One;
                    Remote;
                end E6;
            or
                accept E7 do
                    Global := Global + A_One;
                    Remote;
                end E7;
            or
                accept E8 do
                    Global := Global + A_One;
                    Remote;
                end E8;
            or
                accept E9 do
                    Global := Global + A_One;
                    Remote;
                end E9;
            or
                accept E10 do
                    Global := Global + A_One;
                    Remote;
                end E10;
            or
                terminate;
            end select;
        end loop;
    end T1;

end Task_Pack_6;