uses crt;
var i,n: integer;
s: real;
function mu(n: integer): longint;
var i: integer;
k: longint;
begin
k:=1;
for i:=1 to n do
k:=k*n;
mu:=k;
end;
begin
clrscr;
write ('nhap n: ');   readln (n);
for i:=1 to n do
s:=s+(1/(mu(i)));
writeln ('tong la: ',s:1:2);
readln;
end.

ĐÃ CHẠY TRÊN PASCAL VÀ KHÔNG CÓ LỖI VÀ SAI SÓT !!!

XIN HAY NHẤT

uses crt;
var s: real;
    i, n: longint;

function pow(a, n: longint): longint;
var res: longint;
begin
    res:=1;
    while n <> 0 do begin
        if n and 1 = 1 then res:=res * a;
        a:=a * a;
        n:=n shr 1;
    end;
    exit(res);
end;
    
begin
    clrscr;
    readln(n);
    for i:=1 to n do s:=s + 1 / pow(i, i);
    writeln(s:0:5);
readln;
end.