program smpl6 implicit none real a1, a2, amin, amax read(*,*) a1,a2 if(a1.lt.a2) then amin = a1 amax = a2 else amin = a2 amax = a1 endif write(*,*) amin,amax stop end program smpl6