program teste
real a,b,result
write(*,*) ‘digite dois números quaisquer’
read (*,*) a,b
if (a.gt.b) then
result = a
else
result = b
endif
write(*,*) result
end