PROGRAM multiply1

!  Programmer:  Br. David Carlson
!
!  Date:  December 6, 1999
!
!  Revised:  May 2, 2004
!
!  Reference:  Fortran 90/95 by Chapman
!
!  This program asks the user to enter 2 integers and then prints their
!  product.

INTEGER :: first, second, product

WRITE (*,*) 'Enter two integers to be multiplied: '
READ (*,*) first, second

product = first * second

WRITE (*,*) 'Product = ', product

END PROGRAM