program main
   implicit NONE
   integer :: num1, num2, num3
   print*, "enter the values of num1,num2,num3"
  
   read*, num1,num2,num3
   print*, "num1 =",num1, "num2 =",num2, "num3 =",num3
    
   if (num1 .gt. num2)   goto  5
   if (num2>num3) then
   print*, "num2 is largest"
   else 
   print*, "num3 is largest" 
   endif 
5  if (num1>num3) then 
   print*, "num1 is largest" 
   endif
  end program main