program main
implicit none 
integer :: a,b,c 
print*, "enter the values of a,b,c"
read*, a,b,c 
print*, "a = ",a , "b= ",b,"c =",c 
if (a>b) then 
if (a>c) then 
print*,"a is largest ",a
else 
print*, "c is largest",c 
endif 
else if (b>c) then
print*, "b is largest",b 
else 
print*, "c is largest",c 
endif
end program main