Skip to main content

ADD2.F95

	PROGRAM ADD2
!
! Purpose: A program to add two integers and display the integers
!          and their sum.
!
	IMPLICIT NONE
	INTEGER::I,J
	INTEGER::K
!
	WRITE(*,*)'Enter the two integers to be added'
	READ(*,*)I,J
	K=I+J
	WRITE(*,*)'When ',I,' and ',J,' are added the result is ',K
	STOP
	END PROGRAM ADD2