以下程序执行后，输出的第一行是 (1) ，第二行是 (2) ，第三行是 (3) 。
PROGRAMspin_squareIMPLICITNONE
INTEGER::i，j，k
CHARACTER(len=5)::country(1:3，1:3)=''，name(1:9)name=(/'China'，'Egypt'，'India'，'Japan'，'Korea'，&
&'Libya'，'Nepal'，'Swiss'，'Syria'/)
i=3; j=2
country(i，j)=name(1)DOk=2，9
i=i+1;j=j+1
IF(i>3.AND.J>3)THENi=i-2; j=j-1
ELSEIF(i>3.AND.j<=3)THEN
i=1
ELSEIF(i<=3.AND.j>3)THENj=1
ELSEIF(i<=3.AND.j<=3)THENIF(country(i，j)/='')THEN
i=i-2;j=j-1ENDIF
ENDIF
country(i，j)=name(k)ENDDO
WRITE(，'(3A6)')((country(i，j)，j=1，3)，i=1，3)ENDPROGRAM spin_square