Une série

Le programme suivant utilise une fonction qui calcule la série

program serie;

var i, nombre, exposant : integer;

function puissance(x:real; p:integer):real;
  var i : integer;
      res : real;
  begin
    res:=1;
    for i:=1 to p do
        res:=res*x;
    puissance:=res;
  end;

function S(n, k : integer):real;
   var i : integer;
       som : real;
   begin
     som:=0;
     for i:=1 to n do
         som:=som+puissance(1/i,k);
     S:=som;
   end;

begin
    writeln('entrez n et k, s.v.p');
    readln(nombre);
    readln(exposant);
    writeln('Le resultat est ',S(nombre,exposant));
end.