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.
UHJvZ3JhbSBQdWlzc2FuY2VfbiA7ClZhciBuLCBrIDogSW50ZWdlciA7CnksIHggOiBSZWFsIDsKQmVnaW4KV3JpdGUgKCdTYWlzaXIgdW4gbm9tYnJlIHLDqWVsIDogJyk7ClJlYWRsbiAoeCk7CldyaXRlICgnU2Fpc2lyIGxhIHB1aXNzYW5jZSBuIDogJyk7ClJlYWRsbiAobik7CnkgOj0gMTsKRm9yIGsgOj0gMSBUbyBhYnMgKG4pIERvIHkgOj0geSAqIHg7CklmIG48MCBUaGVuIHkgOj0gMS95OwpXcml0ZWxuICh4OjU6MiwgJyBwdWlzc2FuY2UgJyAsIG4gLCAnID0gJyAsIHk6NToyKTsKRW5kLg==