Составьте алгоритм и программу в паскале: s=sinx+sin2x+sin3x++sin7x

// PascalABC.NET 3.2, сборка 1399 от 08.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x:=ReadReal('x=');
  Writeln('S=',Range(1,7).Select(i->sin(i*x)).Sum)
end.

Пример
x= -0.35
S=-5.32494846593293

var a, b, c, i, j, n, ch:integer;
      s, p:array [1..10000] of integer;
begin
   n:=30;
   for i:=1 to n do
      s[i]:=random(64000)-32000;
      writeln('Данный массив');
   for i:=1 to n do
      write (s[i],' ');
   a:=s[1];
   for i:=1 to n do
      if s[i]>a then
         a:=s[i];
   for i:=1 to n do
       if s[i]=a then
          begin
          j:=j+1;
          p[j]:=i;
          end;
    c:=j;
    writeln;
    writeln('Полученный массив');
    for i:=1 to n do
       begin
       ch:=0;
       for j:=1 to c do
          if i=p[j] then inc(ch);
       if ch=0 then write (s[i],' ');
       end;
end.       
P.S. Надеюсь на благодарность и лучший ответ.

А) берём 2 из трёх монет и взвешиваем их:если монеты весят одинаково, следовательно оставшаяся монета-лишняя, если одна монета легче другой, следовательно она фальшивая
б) на каждую чашу весов ложим по две монеты. берём монеты с той чаши, которая легче и взвешиваем монеты-та что легче и есть фальшивая.
г)на каждую чашу ложим по три монеты. чаша с фальшивой монетой окажется легче. а дальше как под (а) берём 2 из трёх монет и взвешиваем их:если монеты весят одинаково, следовательно оставшаяся монета-лишняя, если одна монета легче другой, следовательно она фальшивая)
в)ложим на каждую чашу весов по 2 монеты. если монеты весят одинаково, то оставшаяся монета-лишняя, если одна чаша легче, то взвешиваем монеты, лежащие на ней , та монета что легче-фальшивая.   (тут всё ок)