1.

var

a:array [1..100000] of integer;

n, k, i:integer;

begin

read (n);

for i:=1 to n do

read (a[i]);

for i:=1 to n do

writeln (a[i]);

readln (k);

for i:=1 to n do

if k>a[i] then write (a[i]);

end.