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