Помогите PASCAL ОЧЕНЬ СРОЧНО S=sinx+sin2x+sin3x+...+sin7x

Question

Помогите PASCAL ОЧЕНЬ СРОЧНО
S=sinx+sin2x+sin3x+...+sin7x

Answer 1

Задачка на циклы. 

var
x,i:integer;
s:real;
begin
   write('vvedite x: ');
   readln(x);
   for i:=1 to 7 do s:=s+sin(i*x);
   writeln('s=', s);
end.

что тут сложного?