var
a, b: array of integer;
i, j, z, n: integer;

begin
writeln('Ââåäèòå N: '); readln(n);
writeln('Ââåäèòå Z: '); readln(z);
writeln('Ââåäèòå ýëëåìåíòû èñõîäíîãî ìàññèâà: ');
setlength(a, n+1);
setlength(b, n+1);
j:=1;
for i:=1 to n do read(a[i]);
for i:=1 to n do
 if a[i]<=z then begin b[j]:=a[i]; inc(j); end;
for i:=1 to (j-1) do write(b[i], ' ');
end.