готово
Объяснение:
var
n, i: integer;
s: real;
begin
n := 10;
for i := 1 to n do
s := s + (i - 7 * i) / (3 + i);
WriteLn('Сумма первых десяти элементов равна ', s:3:3);
end.
