阅读下面程序，假设D[1，2]=[3，2];A[1，9]\[15，3，20，19，1，7，5，8，6];当执行sort（A,9,D）后，A中的值是什么？
PROC SORT (VAR A,n,D);
BEGIN
FOR K:=1to2 Do
BEGIN
Dh：=D[K];
FOR i:=Dh+1 TO n DO
BEGIN
temp：=A[i];j：=i；
while（j>Dh）and(A[j-Dh]>temp)Do
BEGIN
A[j]:=A[j-Dh];j:=j-Dh;
END;
A[j]=temp;
END
END
ENDP;
