Программа

{ Цикл repeat/until }
VAR X:real; { Переменная X }
    PowerX:real; { Степень:[(-1)^i*X^(i-1)] }
    Factorial:real; { Факториал от (i+1) }
    Mult:real;  { Произведение }
    i:integer;  { Счетчик цикла }
BEGIN
 Write('Введите X ');  { Вывод приглашения }
 ReadLn(X);   { Ввод X }
 i:=1;  { Инициализация счетчика }
 PowerX:=-1;  { Инициализация степени }
 Factorial:=2;  { Инициализация факториала }
 Mult:=1;       { Инициализация произведения }
 repeat
   Mult:=Mult*PowerX/Factorial;  { Набор произведения }
   PowerX:=-PowerX*X;  { Набор степени }
   i:=i+1; { Переопределение счетчика }
   Factorial:=Factorial*(i+1); { Набор факториала }
 until i>10;
 WriteLn('P=',Mult)  { Вывод результата }
END.