program prime_numbers;

var
n, i, j: integer;
is_prime: boolean;

begin
write('Nhap vao so phan tu cua day: ');
readln(n);

// Nhap day so
writeln('Nhap vao day so: ');
var numbers: array[1..n] of integer;
for i := 1 to n do
begin
readln(numbers[i]);
end;

// Tim cac so nguyen to
writeln('Cac so nguyen to trong day la: ');
for i := 1 to n do
begin
is_prime := true;
for j := 2 to trunc(sqrt(numbers[i])) do
begin
if (numbers[i] mod j = 0) then
begin
is_prime := false;
break;
end;
end;
if (is_prime and (numbers[i] > 1)) then
begin
write(numbers[i], ' ');
end;
end;
end.