Nếu có sai thì bạn nói mình nhé.
===============================
program Hello;
uses crt;
var n,i:integer;
a:array[1..10000] of integer;
begin
clrscr;
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i] in [1..10] then
write(a[i], ' ');
end.