X ^(n)sur turbo pascale

Bonjour,
j'ai un exercice en turbo pascal ,l'énoncé est le suivant :
Exercice 1 : Calcule Xn

• Ecrire 3 algorithmes. Chaque algorithme demande à l’utilisateur les valeurs de X et de n, ensuite, il affiche le résultat Xn
• Compare leurs Complexité.


or j'ai trouvé qu'un algorithme le voici :

Program exposant;
Uses crt ;
Function exposant ( i , j : integer ) : integer ;
Var i2 , a : integer ;
Begin
i2 := 1 ;
For a := 1 To j Do i2 := i2 * i ;
exposant := i2 ;
End ;
Var resultat, x, n : integer ;
BEGIN
Write ('Entrez un nombre : ') ;
Readln (x) ;
Write('Entrez un exposant : ') ;
Readln (n) ;
resultat := exposant ( x , n ) ;
Writeln ( resultat ) ;
Readln ;
END.



pouvez vous m'aider pour les deux autres?