2015年01月25日

program p26752;
var a:array[1..1000000]of longint;i,j,k,n,l:longint;
begin
 i:=0;
 l:=0;
 repeat
  i:=i+1;
  k:=i;
  read(a[i]);
 until a[i]<0;
 readln(n);
 for j:=1 to k-2 do
 if n<a[j] then
 begin
 write(a[j],' ');
 l:=l+1;
 end;
 if (l<>0)and(n<a[k-1]) then
 writeln(a[k-1])
 else
 writeln('no found')
end.