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