function BinarySearchCount(A,key)

p = 1
r = length(A)
count = 0

while p<=r
	q = Int.(floor.((p+r)/2))
	if A[q] == key
		count = count + 1

		#prvo prebrojimo sa lijeve strane
		indeks = q - 1
		while indeks > 0 && A[indeks] == key #indeks mora biti veci od 0 da ne izadje iz opsega
			count = count + 1
			indeks = indeks - 1
		end

		#brojimo sa desne strane
		indeks = q + 1
		while indeks < length(A) + 1 && A[indeks] == key #indeks manji od duzina + 1 da ne izadjemo iz opsega
			count = count + 1
			indeks = indeks + 1
		end

		return count
	elseif A[q] > key
		r = q - 1
	else
		p = q + 1
	end
end

return -1

end