高精度乘以低精度 procedure multiply（a:hp;b:longint;var c:hp);var i,len:integer;

高精度乘以低精度

procedure multiply(a:hp;b:longint;var c:hp);

var i,len:integer;