Помогите пж, надо ** языке Паскаль написать

Question

Помогите пж, надо на языке Паскаль написать

---

Answer 1

var

   S, S1   : real;

   N       : integer;

   

begin

   readln(N);

   for var i := 1 to N do begin

       S1 += sin(i);

       S += 1/S1;

   end;

   writeln(S);

end.

протестиовано в PascalABC.Net в других версиях паскаля синтаксис может незначительно отличаться.

Answer 2

Смотрите картинки и соотв. им файлы *.pas Написаны в PascalABC.NET

---

---