package body Task_Pack_3 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;
end Task_Pack_3;