program ranger
  implicit none
  character(len=20) :: mot1, mot2, mot
  print *,'Donnez un premier mot'
  read *, mot1
  print *,'Donnez un second mot'
  read *, mot2
  if (mot1.gt.mot2) then
    mot = mot1
    mot1 = mot2
    mot2 = mot
  end if
  print *,'Les deux mots rangés sont :'
  print *, mot1, mot2
end program ranger