Gamble1.
program PU1;
var x,y,s,n: real;
begin
x:=0; s:=0; n:=0;
while (x<=3. 1) do
begin
y:=sin(x);
writeln ('x=',x,' Y=',y:2:2);
if (y>0. 1)and(y<0. 6)then
begin
s:=s+y;
n:=n+1;
end;
x:=x+0. 1;
end;
s:=s/n;
write('Среднее значение =',s:2:2);
end.
Ann Brown