with Stringpack; use Stringpack;
procedure Exception_Demo3 is

   task T;

   task body T is
      function F return Natural is begin return 0; end F;
      N: Natural;
   begin
      N := 1 mod F;     -- 1/0 in body => exiting
      Print("alles ok");
   end T;

begin
   Print("fertig");

exception
   when others => Print("Fehler in task");
end Exception_Demo3;