Напишите программу по блок-схеме.

var x,p,s:real; n,i:integer;
begin
write('x = ');
readln(x);
write('n = ');
readln(n);
s:=1; p:=1;
for i:=1 to n do
 begin
 p:=-p*x/i;
 s:=s+p;
 end;
writeln('s = ',s);
end.

Пример:
x = 0.5
n = 5
s = 0.606510416666667