Ответ:

var k,x:integer;

sr,sum:double;

begin

readln(k);

sum:=0;

for x:=1 to k do

sum:=sum+sin(x);

srednee:=sum/k;

writeln(srednee);

end.