var arr:array[1..30] of integer;
arr2:array[1..30]of integer;
R,i,k:integer;
begin
for i:=1 to 30 do
begin
arr[i]:=random(10);
write(arr[i]:2);
end;
writeln;
readln(R);
k:=1;
for i:=1 to 30 do
if arr[i]<=R then begin arr2[k]:=arr[i]; k:=k+1; end;
for i:=1 to k-1 do
write(arr2[i]:2);
writeln;
end.