1)сосчитать чему ровно=s. 2)найти произведение от 2 до 11. 3)сосчитать i

Это произведение
var p,i:integer;
begin
p:=1;
for i:=2 to 11 do
p;=p*i;
writeln (p);
end.

Это подсчёт i
var k,i:integer;
begin
k:=0;
for i:=2 to 11 do
k;=k+1i;
writeln (k);
end.

сумму не понятно чего?