Дано натуральное число N и действительное число…

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.