RosettaCodeData/Task/Conditional-structures/Ada/conditional-structures-6.ada

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