Возникла потребность в уточнении. Дано натуральное число N. Вычислить S=1/sin1+1/sin2+1/sin3+...+1/sin
Паскаль, цикл с предусловием

program SumS;
var
N, i: integer;
S: real;
begin
write('Введите число N: ');
readln(N);

i := 1;
S := 0;

while i <= N do
begin
S := S + 1/sin(i);
i := i + 1;
end;

writeln('S = ', S);
end.