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