Program A1;
const n=25;
Var X:array [1..n] of read
a,b: real;
Begin
for i:=2 to n do
read (X);
read (a,b);
k:=1;
for i:=1 to n do
if (X>a) and (X<b)
then begin k:=k+1;
for i:=1 to n do
writeln (y[j]);
End.
//otvet.imgsmail.ru/download/217745351_3599e2a5d5a2357a477658570df41b9c_800.jpg
const n=25;
Var X:array [1..n] of read
a,b: real;
Begin
for i:=2 to n do
read (X);
read (a,b);
k:=1;
for i:=1 to n do
if (X>a) and (X<b)
then begin k:=k+1;
for i:=1 to n do
writeln (y[j]);
End.
//otvet.imgsmail.ru/download/217745351_3599e2a5d5a2357a477658570df41b9c_800.jpg