Дано действительное число x и естественное число n .Написать программку вычисления

Pascal
uses crt;
var x,t,s:real;
n,i:integer;
begin
clrscr;
repeat
write(xlt;gt;0 x=);
readln(x);
until xlt;gt;0;
write(n=);
readln(n);
s:=x;1-ая сумма
t:=1;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.