Ребята помогите плиз. Я вообще не врубаюсь как её надо делать? Над 5-й задачей парился 3 часа,
Но она всё-таки получилась.


Вычислить выражение sin x + sin 2x + sin 3x + … + sin nx без использования операции умножения.

Тогда сделай функцию умножения свою.
Например:

Function Mulll(a : LongIntl b : real) : Real;
Var iii : LongInt;
     result : Real;
Begin
  Result:=0;
  For iii:=1 to a do Result:=Result+b;
End;

А тебе тут операция умножения ни к чему:

readln(x);
the_x := x; s := 0;
for i := 1 to n do begin
  s := s + sin(the_x);
  the_x := the_x + x;
end;

Вот и все... Никаких умножений, только сложения.

Спасибо volvo! Очень помог