program ch1203
implicit none
real , dimension(5) :: x = (/1.0,2.0,3.0,4.0,5.0/)
   print *,' sine of ', x ,' = ',sin(x)
end program ch1203