Дано натуральное число n. вычислить s=1/sin1+1/sin2++1/sinn. надо написать на паскале

Var s: real;
    i, c: integer;
begin
     readln(c);
     for i := 1 to c do
         s := s + 1 / sin(i);
     writeln(s);
end.

=)