z_lcm

procedure z_lcm(

  var rop: MPInteger;

  var op1: MPInteger;

  var op2: MPInteger

);

function z_lcm(

  var op1: MPInteger;

  var op2: MPInteger

):MPInteger;