[roman]

Podríamos poner:

Código Delphi [-]
{$R+}
function Choose(d: integer; values: array of Integer): Integer;
begin
  Result := values[d];
end;
{$R-}

// Saludos