Integer no, fraction

open( 1，file='cj.dat ')

do 10 i= 1， 10

Read (1, *) No (i), score (i)

10 Continue

Close (1)

do 20 i= 1，9

do 30 j=i+ 1， 10

If (score(i).lt.score(j)) Then

K = fraction (i)

Score (I)= score (j)

Score (j)=k

K = no (i)

No (I)= No (J)

no(j)=k

If ... it will be over.

30 continue

20 continue

do 40 i= 1， 10

Write (*, *)no(i), score(i)

40 go on

discontinue

end