program somme;
uses wincrt;
var

n,j,x,s,p:integer;

function puissance ( x1,n1:integer):integer;
var
i,p:integer;
begin
                  { *** Boucle pour calculer la puissance *** }
p:=1;
for i:=1 to n1 do
begin
p:=p*x1;

end;
puissance:=p;
end;

                          {***programme principal***}
begin
s:=0; 
writeln('donnez 2 entiers naturels') ;
writeln('la valeur de x=');
read(x);
writeln ('la valeur de n=');
read (n);

     for j:=1 to n do
     
    {***Boucle pour calculerla puissance et faire la somme des puissances calculées***}
     begin
     s:=s+puissance(x,j);
      
     writeln('p',j,'=',puissance(x,j));
     writeln('s',j,'=',s);      
      
      end;
      writeln('La somme totale est :',s);
writeln('***FIN***');
end.
{Remarque importante:vs pouvez tomber ds une erreur de calcule de puissance comme:5 puissance 8 car le maximum du pascal est limité}