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

Pascaluses crt;var x,t,s:real;n,i:integer;beginclrscr;repeatwrite(\'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);readlnend.