结构推理 CLEAR
   DIME A(5)
   K=2
   DO WHILE K＜=5
   A(K)=30-K^2
      K=K+1
   ENDDO
   FOR I=5 TO 2 STEP  -1
   A(I)=A(I)+I
   ??STR(A(I),4)
   ENDFOR
   ??A(I)
   RETURN