Question

Помогите написать прогу в паскале.
дано уравнение
фото внутри

Answer 1

var i,k,a,b:integer;
p,c:real;
begin
p:=0;
for k:= 4 to 8 do
begin
b:=1;
for a:=1 to k+1 do
b:=b*a;
c:=1;
for a:=2 to k do
c:=c*a*a/(a*a+2*a+3);
p:=p+b/c;
end;
writeln(p);
end.