z_mul

procedure z_mul(

  var rop: MPInteger;

  var op1: MPInteger;

  var op2: MPInteger

);

function z_mul(

  var op1: MPInteger;

  var op2: MPInteger

):MPInteger;