program SeriesSum;varx, S: real;i: integer;begin// инициализируем переменныеS := 0;
// запрашиваем у пользователя значение для xwrite('Enter the value of x: ');readln(x);
// считаем сумму рядаfor i := 1 to 7 dobeginS := S + sin(i * x);end;
// выводим результатwriteln('Sum of the series: ', S:0:2);end.
program SeriesSum;
var
x, S: real;
i: integer;
begin
// инициализируем переменные
S := 0;
// запрашиваем у пользователя значение для x
write('Enter the value of x: ');
readln(x);
// считаем сумму ряда
for i := 1 to 7 do
begin
S := S + sin(i * x);
end;
// выводим результат
writeln('Sum of the series: ', S:0:2);
end.