uses crt;
var a: array[1..100] of integer;
i,n,x,d: integer;
begin
clrscr;
write ('nhap n: '); readln (N);
write ('nhap x: '); readln (x);
for i:=1 to n do
begin
write ('nhap phan tu thu ',i,': '); readln (a[i]):
if a[i]>x then d:=d+1;
end;
writeln ('co ',d,' chu so lon hon ',x);
write ('cac so lon hon ',x,' la: ');
for i:=1 to n do if a[i]>x then write (a[i],' ');
readln;
end.