Program sceltamax

implicit none
real :: x1,x2

write(6,*)'Dammi due numeri'
read(5,*)x1,x2
if(x1 > x2) then
   write(6,*) 'Il max e''',x1 
   write(6,*) 'Il min e''',x2 
else
    write(6,*) 'Il max e''',x2 
    write(6,*) 'Il min e''',x1 
endif
end