(*calcola la n-esima potenza di a*)
function potenza(a:real;n:integer):real;
var
   i:integer;
   x:real;
begin
   x:=1;
   if n<>0 then
      for i:=1 to abs(n) do
         x:=x*a;
   if n<0 then
      x:=1/x;
   potenza:=x;
end;