z_mul_si

procedure z_mul_si(

  var rop: MPInteger;

  var op1: MPInteger;

  op2: valsint

);

function z_mul_si(

  var op1: MPInteger;

  op2: valsint

):MPInteger;