Напишите программу на языке программирования pascal. дано натуральное число m. вычислить:

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.