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

Result := (case Op is
  Add => A + B,
  Subtract => A - B,
  Multiply => A * B,
  Divide => A / B
);