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

№6

begin
  var n:=ReadInteger('n=');
  var a:=ReadReal('a=');
  SeqGen(n,i->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