program main implicit none real*8::N real*8,parameter::PI=3.141592653589 read *,N print '(i0)', INT(sqrt(N/PI),kind=8) end program main