RosettaCodeData/Task/Conditional-structures/Ada/conditional-structures-9.adb

select
  My_Task.Start;
or
  delay Timeout_Period;
end select;