program product_example2
real :: m, a, force
! SI units
print *, "mass m = ?"
read *, m
print *, "acceleration a = ?"
read *, a
force = m*a                       ! force in newton's
print *, "force (in newtons) =", force
end program product_example2