Program Puissance_n ;
Var n, k : Integer ;
y, x : Real ;
Begin
Write ('Saisir un nombre réel : ');
Readln (x);
Write ('Saisir la puissance n : ');
Readln (n);
y := 1;
For k := 1 To abs (n) Do y := y * x;
If n<0 Then y := 1/y;
Writeln (x:5:2, ' puissance ' , n , ' = ' , y:5:2);
End.