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

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

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