program ch0807
implicit none
integer , dimension(1:3) :: X,Y
integer :: result
   X=[1,3,5]
   Y=[2,4,6]
   result=dot_product(X,Y)
   print *,result
end program ch0807