var c:array [1..1000] of real;
i,n:integer;
min,a,b:real;
begin
write ('kol-vo elentov='); readln (n);
write ('a='); readln (a);
write ('b='); readln (b);
writeln ('Zapolnite massiv');
for i:=1 to n do 
readln (c[i]);
for i:=1 to n do 
if (c[i]>=a) and (c[i]<=b) then begin
 min:=c[i]; break;
 end;
for i:=1 to n do 
if (c[i]>=a) and (c[i]<=b) and (c[i]<min) then min:=c[i];
writeln ('min=',min);
end.