program SNT;
uses crt;
var A: array [1..500] of integer;
n,i,d,j: integer;
Begin
write('Nhap so phan tu: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(A[i]);
end;
write('Cac so nguyen to trong day: ');
for i:=1 to n do
begin
d:=0;
for j:=1 to i do
if i mod j=0 then d:=d+1;
if d=2 then write(i,' ');
end;
readln
End.