program Zadaniel_3
 
implicit none


real::eps,x,res0,res,controlres
integer:: i
 
!open(12,file="resultl_3.dat")
!print*,'Vvedite x'
!read*,x
!print*,'Vvedite tochnost'
!read*,eps
x=0.53
eps=0.001
 
 
 
i=2
res0=1-5*x/2
do
res=res0+res0*2*i*(2*i+3)*(-1)**i
if ((res-res0)<eps) exit
!write(12,*)i,res
i=i+1
res0=res
end do
 
print*,'Raschet po ryadu=',res0
print*,'Raschet po formule=',SOSI_PISOS(4.012)
 
contains

real function SOSI_PISOS(n)
  implicit none
  real, intent(in) :: n
  real :: ans
  integer :: i
  ans = sqrt((1+n)**5)
  SOSI_PISOS=ans
end function SOSI_PISOS

end program