{************************************************
                 Hugo Eti‚vant
     http://www.multimania.com/cyberzoide/
      e-mail : cyberzoide@multimania.com
      (pour une aide en Turbo Pascal 7.0)
*************************************************}


Program Exemple10 ;

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 ) ;
END.