program main
implicit none 
integer :: a,b,c,max,min 
print*, "enter three numbers"
read*, a,b,c 
max = a 
if(b>max) max = b 
if(c>max) max = c 
min = a
if (b<min) min = b 
if (c<min) min = c 
print*,"the maximum integer", max 
print*, "the minimum integer", min
 end program main