program ch1203a
real , dimension(5) :: x = (/1.0,2.0,3.0,4.0,5.0/), y
  y = sin(x)
  write(*, 100)x
  100 format('x:',9x,5(f5.2,2x))
  write(*,200)y
  200 format('sine of x:',1x,5(f5.2,2x))
end program ch1203a