Verified answer

uses crt;

var x, r, i:Double;

n:LongInt

begin

readln(x, n);

r := 1;

for i:=1 to n do result := r+(power(x, n)+i*n)/i;

writeln(r);

end.