Pascal while дано натуральное n. вычислить: в)1/sin1+1/sin1+sin2++1/sin1++sin(n).

Program whilePaskal;

var b, a: integer;

sum: real;

Begin

ReadLn(a);

b:=1;

sum:= 0;

while (b<=a) do

Begin

sum := sum+1/sin(b);
b:=b+1;

end;

WriteLn(sum);

end.