高精度除以高精度 procedure high_devide（a,b:hp; var c,d:hp);vari,len:integer;

高精度除以高精度

procedure high_devide(a,b:hp; var c,d:hp);

var

i,len:integer;