Hola a tod***s. ¿Podría alguien ayudarme a obtener la complejidad de este
algoritmo?.

funcion examen( a: array [1..n] of integer; x, y : integer)
INICIO
si x <> y entonces
si 2a[x] < a[y] entonces
examen( a, x, y div 2);
sino
examen( a,2x, y)
finsi
finsi
FIN

Muchas gracias a tod***s.