Write a program to determine value of Pi (pi-value determination)

c pi-value determination
implicit double precision(a-h,o-z)
sum=0.0
do i=1,1000,1
sum=sum+1/(i**2)
end do
pi=sqrt(6*sum)
write(*,*)’the pi-value is:- ‘,pi
stop
end
c centigrade to fahrenheit conversion
implicit double precision (a-h,o-z)
dimension f(6),c(6)
write(*,*)’provide fahrenheit temp:- ‘
do i=1,6,1
read(*,*) f(i)
c(i)=5*(f(i)-32)/9
write(*,*)’the centrigrade temp is- ‘, c(i)
end do
stop
end