program main
	implicit none
	integer::ans=0,i,n
    integer,dimension(3005)::a
    read(*,*) n
    read(*,*) (a(i),i=1,n)
    do i=1,n
    	ans=ans+a(i)-1
    end do
    write(*,'(i0)') ans
    stop
end program main
