All possible results?

[ie53@NTSUVAX.BITNET (HAERIM LEE)]

-- What are all possible results of the execution of the following
-- code on BOTH a single processor system and a multi-processor system?
-- Can an exception 'TASKING_ERROR' be raised at (***)?  Or will "accepted"
-- be ALWAYS printed on the screen?  Or sometimes printing "accepted" and
-- sometimes raising 'TASKING_ERROR' will occur?  Please consider BOTH
-- systems mentioned above.  Send any comments to IE53@NTSUVAX.

with text_io; use text_io;
procedure kill is
  task a is
    entry e;
  end a;
  task body a is
  begin
    select
        accept e do
          put_line("accepted");
        end e;
    or
        terminate;
    end select;
  end a;
begin
  a.e;          -- ***
end kill;