!Program name: SUMMATION
!Summation of product elements, ab, of vectors A and B
Print *, 'Input the five elements of vector A: '
Read *, A
Print *, 'Input the five elements of vector B: '
Read *, B
Do 1 I=1,5
Print *, 'The summation of the product elements, ab, is: ', S