有一个十进制的四位数ABCD与一个十进制的三位数CDC的差等于十进制的三位数ABC.下列程序按"ABCD=9876"的样式打印出ABCD这个数。请在其中____外填入适当的内容.

阅读下列程序 
INTEGER A（100），G 
READ（*，*）N，（A（I），I=1，N） 
DO 10 I=1，N-1 
G=I 
DO 20 J=I+1，N 
IF（A（J）.LT.A（G））THEN 
G=J 
ENDIF 
20 CONTINUE 
K=A（I） 
A（I）=A（G） 
A（G）=K 
10 CONTINUE 
WRITE（*，’（1X，10I2）’）（A（I），I=1，N） 
END 
程序运行时输入的初始值是3，6，9，8，则运行结果是（）

阅读下列程序 
DIMENSION M（3，3） 
DATA M/1，2，3，4，5，6，7，8，9/ 
WRITE（*，100）（M（3，J），J=1，3） 
100 FORMAT（1X，3I2） 
END 
程序运行结果是（）

阅读下列程序 
LOGICAL L1，L2，L3，L4，L5 
DATA L1，L2，L3/3*.TRUE./ 
L4=.NOT.L1.AND..NOT.L2.AND.L3 
L5=.NOT.L1.OR..NOT.L2.OR.L3 
WRITE（*，*）L4，L5 
END 
程序运行结果是（）

阅读下列程序 
FUN（c，d）=a*c+b/d 
DATA a，b/1.0，1.0/ 
WRITE（*，’（F4.1）’）
FUN（a，b）-FUN（b，a） 
END 
程序运行结果是（）

阅读下列程序 
N=0 
DO 10 K=1，3 
N =N+1 
M=K*N 
10 CONTINUE 
WRITE（*，’（1X，2I3）’）M，K 
END 
程序运行结果是（）

阅读下列程序 
CHARACTER A*4，B*5，C*4 
DATA A，B，C/’BIG’，’MIDDLE’，’SMALL’/ 
WRITE（*，20）A，B，C 
20 FORMAT（1X，A2，A3，A4） 
END 
程序运行结果是（）

阅读下列程序 
A=3.5 
CALL SUBA（A，A，A） 
WRITE（*，’（F4.1）’）A 
END 
SUBROUTINE SUBA（X，Y，Z） 
Y=Y-2.0 
Z=Z+X 
END 
程序运行的结果是（）