Дано натуральное число 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.=)