Question

помогите сделать яп паскаль задание номер 3

Answer 1

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.