Program ex0429
implicit none
real,parameter::pi=3.1415
write(*,*)sin(pi/6)
stop
end