program sample
	implicit none
    integer(8) :: N,count,i
    integer,allocatable :: x(:)
    
    read(*,*) N
    
    allocate(x(N))
    
    read(*,*) x
    
    count =0
    
    !左より右が大きくなるところで区切りを入れ、左側の値から右側の値を引いたものを足し合わせていく
	do i=1,N-1
    	if (x(i) > x(i+1)) then
        	count = count + x(i) - x(i+1)
        end if
    end do
    
    !一番右端を足す。
	write(*,*) count+x(N)
    
    deallocate(x)
    
    stop
end program sample