//PascalABC.NET Версия 3.0 Сборка 1150
var x,summ,factor:real;n,i,next:integer;
begin
writeln('Введи x и N через пробел:');
readln(x,n);
factor:=1;
summ:=x;
next:=3;
for i:=2 to n do begin
factor:=factor*(next-1)*next;
summ:=summ+power(-1,i+1)*power(x,next)/factor;
next:=next+2;
end;
writeln('Ответ: ',summ);
end.
sin для проверки радианах. Из-за факториала в формуле на числах N больше 7-8 уже "загнётся" при х>1