program input
  implicit none

  real :: num_1, num_2, largest, smallest

  print *, 'Give two numbers:'
  read *, num_1, num_2
  largest = MAX(num_1,num_2)
  smallest = MIN(num_1,num_2)
  print *, 'Well, ', largest, ' is larger than ', smallest, '.'
end program input