z_and

procedure z_and(

  var rop: MPInteger;

  var op1: MPInteger;

  var op2: MPInteger

);

function z_and(

  var op1: MPInteger;

  var op2: MPInteger

):MPInteger;