Помогите пожалуйста решить 6,7 задачки.Вопрос жизни и

Скобками Вас воспользоваться не учили? 1/(sin1+sin2)

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программа не работает, обновите версию!

6

begin
  var n:=ReadInteger('n=');
  var a:=ReadReal('a=');
  SeqGen(n,i-gt;i/a,1).Sum.Println
end.

Пример
n= 10
a= 3.5
15.7142857142857

7

begin
  var n:=ReadInteger('n=');
  var (s,den):=(0.0,0.0);
  for var i:=1 to n do begin
    den+=Sin(i); s+=1/den
    end;
  s.Println
end.

Пример
n= 5
8.84574027314699