with Stringpack; use Stringpack; procedure Tierwelt is task Hund; task body Hund is begin Print("wau"); Print("wau"); end Hund; task Katz; task body Katz is begin Print("miau"); end Katz; begin Print("hello world"); end Tierwelt;