С ЗАДАЧЕЙ ЗАДАЧА В ПАСКАЛЬ

Дано натуральное число n. Вычислить сумму первых 10 элементов в ряду:

(n-7)/4+(n-14)/5+(n-21)/6+⋯+(n-7n)/n

готово

Объяснение:

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.