Автор вопроса презирает скобки, поэтому выражение для суммы написано криво и можно догадаться, что он имел в виду лишь потому, что он не один такой, да еще и сама задача публикуется не впервые.
Мы получили отличную рекуррентную формулу, которая позволит обойтись без вычислений факториалов и высоких степеней х.
PascalABC.NET 3.2, сборка 1383 от 09.02.2017
(нет у меня этой древней версии Pascal ABC, её 10 лет назад разработчик на своем сайте удалил и теперь с .NET работает).
Но в Pascal ABC программа тоже пойдет.
var
x,s,a,x2:real;
i,n:integer;
begin
Write('Введите х и n: '); Read(x,n);
x2:=x*x; a:=-x2/2; s:=1+a;
for i:=2 to n do begin
a:=-a*x2/((2*i-1)*2*i);
s:=s+a
end;
Writeln('S=',s)
end.
Пример
Введите х и n: 3.15 10
S=-0.999964658391118