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