program scelta
implicit none
real :: a,b

! input / output

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


end