var
j,i:integer;
N:integer;
Max:real;
a,b:real;
Mas: array [1..100] of real;
begin
 writeln('Введите N ( N < 10)'); readln(N);
 writeln('Введите a'); readln(a);
 writeln('Введите b'); readln(b);

for i:=1 to N do
  begin
  write('Mas[',i,']=');
  read(Mas[i]);
  end;
writeln('Результат');
max:=Mas[1];
for i:=2 to N do
  begin
  if Mas[i]>Max then max:=Mas[i];
  end;
j:=1;
for i:=1 to N do
  begin
    mas[j]:=mas[i];
  if (Mas[i]>=a)and(mas[i]<=b) then dec(j);
    inc(j);
 end;
for i:=j to N do mas[i]:=0;
writeln;
for i:=1 to N do write(' ',mas[i]);
writeln;
writeln('Max=',Max);
end.