program max_min
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 number is ",Max
print*,"the minimum number is ",Min

End Program