program ch1204a
real , dimension(5) :: x = (/1.0,2.0,3.0,4.0,5.0/), y
  y = sin(x)
  write(*, 100)x
  100 format('x:',11x,5(f5.2,2x))
  write(*,200)y
  200 format('sine of x:',3x,5(f5.2,2x))
  write(*,300)sum(x)
  300 format('sum of  x:',3x,f5.2)
end program ch1204a