Дано натуральное число n и действительное число x. вычислить сумму ряда: sin x + sin 2x+sin 3x+…sin n*x протестировать программу для x=1.5 и n=3. проверить правильность ответа на калькуляторе.

var  n, i: integer;     x, s: real; begin  repeat       writeln('введите количество слагаемых: ');       readln(n)  until n> 0;   writeln('введите ''x'': ');   readln(x);   for i : = 1 to n do      s : = s + sin(i * x);   writeln(s);     readlnend.

125 -   5/7

  х     - 2/7

х = (125 * 2/7) : 5/7 = 50 человек

рrogram summa;

var s, a, b, c : word;

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s=а+в+с

            write(' сумма равна ',s);

            readln

в принципе все, должно быть правильно