Вычисление суммы и произведения в паскале

var i: integer; s, p: real;
begin
s := 0;
for i := 1 to 7 do s := 1.0 / (i * (i + 1) * (i + 2)) - s;
writeln(abs(s));
p := -1.0 / (1 * 8);
for i := 2 to 7 do p := p / sqr(i);
writeln(p)
end.