correction dctheo_prob1

voici le programme:**************************************
*********************************************************
program suite;
uses wincrt;

var
n,s,e:integer;

procedure saisi_n(var n:integer);
begin
repeat
writeln('n=');readln(n);

until n in [2..20];
end;
function puissance( n,e:integer): integer;
var
i,p : integer;
begin
p:=1;
for i := 1 to e do
p := p*n;
puissance :=p;

end;
function somme ( n:integer;s:real):real;
var
i : integer;
begin
s:=1;
for i := 2 to n do

s:= s+((2*(i-1))/puissance(sqr(i),i));
somme:=s;

end;
begin
saisi_n(n);
puissance(n,e);
writeln(' la somme est : ',somme(n,s):2:2);
end.

*******************************************************

merci beaucoup

il ya un probleme lorsque je prend des valeurs >3