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

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