Program Besselia;
{8
-----
\                      1
 \             ---------------
 /               (k)! (k+n)!
/
----
k=1}
{Задание: Написать программу для подсчета суммы с погрешностью 0.001 для n от 0 до 5. Найти значение при n=2}
var n,k:integer;
      s,a:real;
begin
for n:=0 to 5 do begin
 s:=0; k:=0;
 Case n of
 n=0..b:=1;
 n=1..b:=1;
 n=2..b:=2;
 n=3..b:=6;
 n=4..b:=24;
 n=5..b:=120'
end;
while a>=0.001 do begin
 k:=k+1; a:=1;
 a:=1/((k)*(k+n)*(b));
 If (k mod 2=0) then s:=s+a;
 If (k mod 2=1) then s:=s-a;
end; {end while}
writeln (n, '-ый член семейства равен ',s);
end; {end for}
end.
{При n = 2 s = -0.1472}