package body Task_Pack_4 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;
            end select;
        end loop;
    end T1;

end Task_Pack_4;