program ordino2

implicit none
real :: a,b,t

! ORDINA DUE VARIABILI (Crescente)

write(6,*)' dammi due numeri'
read(5,*)a,b 
if(a > b) then
   t=a
   a=b
   b=t
endif

write(6,*)a,b
end