1)

var

 n:integer;

 sum:real;

begin

 sum:=0;

 for n:=4 to 11 do

   sum:=sum+(n/(sqr(n)+5*n+6));

 writeln('S= ',sum);

end.

2)

var

 l:integer;

 pr:real;

begin

 pr:=1;

 for l:=11 to 17 do

   pr:=pr*((3*l-4)/(sqr(l)+7));

 writeln('P= ',pr);

end.

Если моё решение вам помогло, отметьте его лучшим. Спасибо!