var

a:array [1..10] of integer;

i,x,y,k:integer; 

s:real;

begin

randomize; 

for i:=1 to 10 do begin

a[i]:=random(31)-10;

write (a[i],' ');

end;

writeln;

repeat

write ('Y = ');readln(y);

write ('X = ');readln(x);

until y<x;

for i:=1 to 10 do

if (a[i]>y) and (a[i]<x) then begin

s:=s+a[i];

k:=k+1;

end;

if k=0 then writeln ('V massve net el y<a[i]<x ') else begin

s:=s/k;

writeln ('Sr. arifm: ',s:0:4);

end; 

readln;

end.