Дано действительное число x и натуральное число n. Написать программу вычисления выражения x^2/1+x^3/2 + ... + x^n/n-1. В паскале

Компилятора под рукой нет, так что напишу от руки

uses Math;

program find;

begin

var x: real;

var n: integer;

var sum: real : = 0;

var res: real;

for var i : = 1 to n - 1 do

begin

res : = (power (x, i + 1) div i) + (power (x, i + 1) mod i) ;

sum + = res;

end;

end.