Составить программу в паскале для вычисления суммы степеней (1/1)^n+(1/2)^n+...+(1/n)^n через вложенный цикл.Очень срочно.

var k,sum:real;n,i,j:integer;beginReadln(n);for i:=1 to n do begink:= 1/i;for j:=1 to n do begink:= k * k;end;sum:= sum + k;end;writeln('sum =', sum);end.