pascal while
Дано натуральное n. Вычислить:

в)1/sin1+1/sin1+sin2+...+1/sin1+...+sin(n).

Program whilePaskal;var b, a: integer;sum: real;BeginReadLn(a);b:=1;sum:= 0;while (b<=a) doBeginsum := sum+1/sin(b);b:=b+1;end;WriteLn(sum);end.