2/ Le programme pour lire un entier x et un entier positif n, puis calcule Xn
Program Power_To_ppl ;
Var x,n,i,Res:integer;
Begin
Res =:1;
Writeln(‘Enter Two numbers X, and n ‘);
Readln(x,n)
For i=1 to n do
Res =Res *X;
Writeln(‘The Result is ‘,Res);
End.