program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, System;

var i,j,k,n: integer;
    a:  array of real;
    b,c: real;
begin
  write('число элементов массива:  ');  readln(n);
  setlength(a,n+1);
  writeln('массив:');
   randomize;
  for i:=1 to n do
  begin
    a[i]:=random*100;  
    write(a[i]:6:2,' ');
  end;  
  writeln;
  write('диапазон:  ');  readln(b,c);
  k:=0;  i:=1;
  repeat
    if ((abs(a[i])>=b) and (abs(a[i])<=c)) then
    begin
      for j:=i to n-k-1 do a[j]:=a[j+1];
      a[n-k]:=0;
      k:=k+1;
      i:=i-1;
    end;
    i:=i+1;
  until i>n-k;  
  writeln('новый массив:  ');
  for i:=1 to n do write(a[i]:6:2,' ');
end.