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

select
   accept first_entry;
   -- do something
   or accept second_entry;
   -- do something
   or terminate;
end select;