Дано натуральное число N. Вычислить S=1/sin1+1/sin2+....+1/sinN. Надо написать на Паскале

Предыдущий
вопрос Следующий
вопрос

program SumOfSin;

var
N, i: Integer;
S: Real;

begin
Write('Enter a natural number N: ');
Readln(N);

S := 0;

for i := 1 to N do
begin
S := S + 1 / sin(i);
end;

Writeln('The sum is ', S:0:2);
end.