function puissance(x,n:longint):longint;
var intermediaire:longint;
begin
if n=1 then
puissance:=x
else
begin
intermediaire:=puissance(x,n div 2);
if (n mod 2)=0 then
puissance:=intermediaire*intermediaire
else
puissance:=intermediaire*intermediaire*x;
end
end;