PPT Slide
character (len = 7) :: X_Rank, Y_Rank
write (unit = *, fmt = *) " Please enter a pair of real numbers to be ranked. "
read (unit = *, fmt = *) X, Y
write (unit = *, fmt = *) " You have entered: ", X, Y
write (unit = *, fmt = *) X, " is ", X_Rank, " and ", Y, " is ", Y_Rank