Skip to main content

ADD3.F95

	PROGRAM ADD3
!
! Purpose: A program to add two integers and display the integers
!          and their sum.
!
	IMPLICIT NONE
	REAL::X,Y,Z
!
	WRITE(*,*)'Enter the two numbers to be added'
	READ(*,*)X,Y
	Z=X+Y
	WRITE(*,*)'When ',X,' and ',Y,' are added the result is ',Z
	STOP
	END PROGRAM ADD3