!!####################################################################
!! Gets 2 integers from user; prints the bigger number, and the
!! difference, which should be non-negative.
!!####################################################################
PROGRAM Difference
IMPLICIT NONE
INTEGER :: a, b ! the 2 integers
INTEGER :: big, diff
! Ask for first number
WRITE (*,*) "Enter first integer:"
READ (*,*) a
! Ask for second number
WRITE (*,*) "Enter second integer:"
READ (*,*) b
IF (a > b) THEN
big = a
diff = a-b
ELSE
big = b
diff = b-a
END IF
! Print out results
WRITE (*,*) "The bigger number is: ", big
WRITE (*,*) "The difference is: ", diff
END PROGRAM Difference