program main
real pi1,pi2
pi1=acos(-1.0)
pi2=atan(1.0)*4
print *, 'The value of pi is',pi1
print *, 'The value of pi is',pi2
end program main