program vrste
real n,raz,ncl,scl
v=0.5
scl=0.5
ncl=1.0/6.0
raz=scl-ncl
n=2
do while (raz.ge.0.00005)
  v=v+ncl
  scl=ncl
  n=n+1
  ncl=1.0/(n*(n+1))
  raz=scl-ncl
enddo
print*,'vsota vrste=',v
print*,'stevilo clenov=',n-1
end