同じようなコードをそれぞれの言語で書いてみた。 Ada: with Ada.Text_IO; with Ada.Strings.Unbounded; procedure MyTest is use Ada.Strings.Unbounded; use Ada.Text_IO; task MyTask is entry Hello(Message: String); end; task body MyTask is Received_Message: Unbounded_String; begin loop select accept Hello(Message: in String) do Received_Message := To_Unbounded_String(Message); end Hello; end select; Put_Line(To_String(Received_