Const
 Nmax=100;
var
 a:array [1..Nmax] of Real;
 i,j,n,k: integer;
 b:boolean;
begin
 Randomize;
 Write('n = ');
 Readln(n);
 for i:=1 to n do
  begin
   a[i]:=Random*10;
   write(a[i]:8:2);
  end;
 writeln;
 writeln;
 Write('k (1..9) = ');
 Readln(k);
 writeln;
 b:=false;
 i:=0;
 Repeat
  i:=i+1;
  If a[i]<k then b:=true;
 Until (i=n) or b;
 If b then
  begin
   for j:=i to n-1 do a[j]:=a[j+1];
   n:=n-1;
   for i:=1 to n do write(a[i]:8:2);
  end
 else
  Writeln('No such elements!');
 Readln
End.