一個簡單的任務

Created: November-22, 2018

with Ada.Text_IO; use Ada.Text_IO;

procedure Main is
   task My_Task;
   task body My_Task is
   begin
      Put_Line ("Hello from My_Task");
   end;
begin
   Put_Line ("Hello from Main");
end;

結果

Put_Line 的順序可以變化。

Hello from My_Task
Hello from Main