program TimSoLonHonA;
var
a: array of integer;
n, i, x: integer;
begin
write('Nhap so phan tu cua day so: ');
readln(n);
SetLength(a, n);
for i := 0 to n - 1 do
begin
write('Nhap gia tri phan tu thu ', i + 1, ': ');
readln(a[i]);
end;
write('Nhap vao mot so nguyen bat ky: ');
readln(x);
writeln('Cac so lon hon ', x, ' la: ');
for i := 0 to n - 1 do
begin
if (a[i] > x) then
writeln(a[i]);
end;
end.