program pi

real n,s
integer i

n = 0
s = 0
i = 1000000

do while(n.LT.i)
   s = s+((-1**n)/(2*n+1))
   n = n+1
enddo

write(*,*) 'Pi: ',s*4

end program pi