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

Pascal
uses crt;
var x,t,s:real;
n,i:integer;
begin
clrscr;
repeat
write('x<>0 x=');
readln(x);
until x<>0;
write('n=');
readln(n);
s:=x;
t:=1;
for i:=2 to n do
begin
t:=-t*x*x/((2*n-2)*(2*n-1));
s:=s+t;
end;
write('S=',s:0:8);
readln
end.