Program Ordino2

implicit none
real :: x1,x2,temp

! ordina i valori contenuti in due variabili
! in x1 va il valore piu' grande, in x2 il piu' piccolo

write(6,*)'Dammi due numeri'
read(5,*)x1,x2
if(x1 < x2) then

! li metto in ordine
temp=x1
x1=x2
x2=temp
endif

write(6,*)x1,x2
end