//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