Вычисление суммы

uses math;
 
var n, i : integer
Begin
 
writeln("Input n: ");
readln(n)
 
for i:=1 to 100 do
sum := sum + (1 / Power(i, n));
 
writeln("Sum = ", sum);
 
End.

program p1;
uses crt;
var
 sum:real;
 n,k:integer;
function Power(x:real;n:integer):real;
var 
    i:word;
    p:real;
begin
p := 1;
for i:=1 to n do 
begin
    p := p*x;
end;
Power := p;
end;
begin
 clrscr;
 write('n=');readln(n);
 sum := 0;
 for k:=1 to 100 do
    begin
        sum := sum + Power(1/k,n);
    end;
writeln('Summa S =',sum:12:8);
readln;
 end.

program p1;   
uses crt;   
var   
 sum:real;   
 n,k:integer;   
function Power(x:real;n:integer):real;   
var    
    i:word;   
    p:real;   
begin   
p := 1;   
for i:=1 to n do    
begin   
    p := p*x;   
end;   
Power := p;   
end;   
begin   
 clrscr;   
 write('n=');readln(n);   
 sum := 0;   
 for k:=1 to 100 do   
    begin   
        sum := sum + Power(1/k,n);   
    end;   
writeln('Summa S =',sum:12:8);
readln;   
 end.

Function Pow(A,B:Real):Real;
Var T:Real;
Begin
     T := Abs(A);
     If A < 0 Then Pow := (-1)*Exp(B*Ln(T))
              Else Pow := Exp(B*Ln(T));
End;