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

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 в других версиях паскаля синтаксис может незначительно отличаться.

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