Напишите программу на языке программирования Pascal. Дано натуральное число m.
Вычислить:
[tex] \frac{1}{sin1} + \frac{1}{sin2} + ... + \frac{1}{sinm} [/tex]

program sinys;var m,i:integer;x:real;mas:array [1..1000] of integer;  begin  x:=0;  readln(m);  for i:=1 to m do      x:=x+(1/sin(i));  writeln(x) end.