CHARACTER::CC*4='ABCD',C1
REAL::A(4),Z
INTEGER::I,J
WRITE(*,*) '請輸入A、B、C、D四個數：'
READ(*,*) A
DO I=1,4-1
DO J=I+1,4
IF(A(J)>A(I))THEN
Z=A(I); A(I)=A(J); A(J)=Z
C1=CC(I:I); CC(I:I)=CC(J:J); CC(J:J)=C1
ENDIF
ENDDO
ENDDO
WRITE(*,*) '四個數從大到小的次序為：'
WRITE(*,*) (CC(I:I),'=',A(I),' ',I=1,4)
END
! 已經上機通過調試，請放心使用。