q_mul

procedure q_mul(

  var product: MPRational;

  var multiplier: MPRational;

  var multiplicand: MPRational

);

function q_mul(

  var multiplier: MPRational;

  var multiplicand: MPRational

):MPRational;