program main
implicit none 
real :: a,b,c 
print*, "enter the value of a,b,c"
read*, a,b,c 
if ((a .gt. c).and. (c .gt. b)) then 
print*, "the maximum value is ", a 
print*, "the minimum value is ",b 
endif 
if (b.gt.a .and. c.gt.b)  then
print*,"the max value is ",c 
print*, "the min value is",a 
endif 
if (b.gt.a .and. a.gt.c) then
print*, "the max value is", b 
print*, "the min value is ", c 
endif 
end program main