program main implicit none integer :: i, n real(8) :: s = 0, t, d, r = 0, x read *, n do i = 1, n read *, x d = sqrt(x) + r t = s + d r = d - (t - s) s = t print '(g0)', t end do end program main