Программа на pascal'е

[ALT_aiR]

Собственно вот она:
21102009170.jpg
Заранее спасибо

[ОДИНОЧЕСТВО В СЕТИ]

так как про точность ничего не сказано будем считать по количеству слагаемых

....
mn:=1;
s:=x;
i:=1
while i<n do begin
  mn:=mn*(i+1)/(i+2);
  ch:=mn*exp(ln(x)*(i+2))/(i+2);
  s:=s+ch;
  inc(i,2);
end;
res:=3.14/2-s;
writeln(res);
....
end.

[ALT_aiR]

Спасибо большое